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systems. The multiple extensive piping systems of an aircraft carrier create an 
intimidating modelling problem for implementation in a database. The interface of 
an expert system to a large database to obtain improved execution speed, exploit a 
useful data model, reduce memory requirements, and enhance total system 
capability is examined and implemented. A flexible model for representing a large 
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I. INTRODUCTION 


The failure of aircraft carrier through tank piping was identified in the mid 
1970's as a difficult management problem. The deterioration of carbon steel 
piping, from continuous immersion in salt water, allowed the intercommunication 
of the ship's fuel tanks and damage control voids. The potential detriment of inter- 


communicating tanks includes: 


° loss of boiler fires due to water in the fuel oil casualties 


° inadvertent overboard discharge of fuel when pumping a contaminated D.C. 
void 


° increased draft 
° reduction in ability to counter flood 


e lost reserve buoyancy 


The complexity of CV's, intense operating schedules, and advancing ship age 
has made dealing with piping casualties time consuming and frustrating. Hours 
spent tracing piping diagrams and making false starts in resolving a problem has 
pointed out that a formalized approach to the problem would be worthwhile. The 
system developed in this thesis is directly applicable to CV's 59/60/61/62/63/64, 
and is readily adaptable to CV's 41/43 and CVN-65. The CV-67 and CVN-68 class 
side protection systems, construction materials(copper-nickel piping), and pipe 
joining techniques(socket couplings) do not experience the same failures and hence 
these ships would derive minimal benefit from this system. 

The development of an expert system interfacing a large database to aid in 
troubleshooting aircraft carrier piping systems is divisible into three areas of 


emphasis: 


e the model for the database system 
e the design of the interface to the database 
e the expert system itself 


This thesis examines each of these issues and implements the recommended 
solution in an operable database interfaced expert system. 

The implementation of the expert system is designed to be operated by 
Engineering Department personnel at sea on a micro computer likely to be readily 
available. The hardware limitations therefore are considered to be those of the 
Z-248, widely purchased for operating forces, and readily available as a GSA 
catalog item. 

CDR Clayton developed the decision trees and provided the expertise with 
respect to aircraft carrier design and construction. The data model and user 
interface to the system were also designed by CDR Clayton. 

LT Boozer developed the expert system, the interface to the data base, and the 


data base system. 


IL BACKGROUND 


The following are Naval terms which may need to be defined to assist in the 


comprehension of this paper: 


"through tank" refers to long sections (40 - 50 feet) of pipe which run in the 
bottom of the ship through several adjacent compartments. These 
compartments are frequently other tanks, hence the label "through tank". 


"string" refers to a group of tanks and voids all located side by side at the 
same frame number and on the same side of the ship. For example, string 
119S refers to five adjacent voids and tanks all located at frame 119 on the 
starboard side of the ship. 


"frame" is a relative location along the length of the ship starting at the 
forward end of the ship. Aircraft carrier frames are spaced at an interval of 
four feet, and are numbered sequentially bow to stern. 


"wing tank" is a tank or void, outboard of the holding bulkhead, away from 
the center of the ship and in close proximity to the side of the ship. They are 
typically long (20 feet), narrow (5 feet), and very deep (37 feet). 


A. INTERNAL ARRANGEMENT 


Understanding the internal compartment and system arrangement in a 


FORRESTAL/KITTY HAWK class aircraft carrier is fundamental to 


comprehending the database model utilized by the expert system. An illustration of 


a typical arrangement [Ref. 1:p. 10] appears as Figure 1. 


Piping emanating in the engineering spaces passes through several 


compartments before reaching its termination point. Aircraft carriers built prior 


to 1965 were constructed with mild carbon steel fuel oil transfer, fuel oil service, 


and fuel oil recirculating piping systems. The deterioration of these systems in 


service due to corrosion has resulted in leaks which are not readily apparent 


because they are inside of other tanks. This internal leakage is thus difficult to 


8-127 -1-W 8-123-1-W 8-119-1-w 
FW F w RF w 


8-119-5-М 
8-127-3-Ғ F w 
FO. 


RTM] 
ь 


Т” ЕНЕ 


1 
ru нъ 


23 
8-124-5-У 8-119-9-V 
DC DC 
4 2 4 2 4 
2} — 8-124-5-Ғ ET mE 2 
A Fos 12 COST 2 FOS 
4 4 5 4 : 


8-127-li- F B-124-7-F 8-19-15-F 
FOB „5 FOB 5 FOB 


8-119-15-V 
DC 





Figure 1. Through Tank Piping Arrangement for No. 4. MMR 


diagnose. Other factors which contribute to the difficulty of diagnosing a problem 
are improper system operation by personnel, inoperative or leaking valves, foreign 
object blockage, and cracks in structure. Multiple combinations of the above factors 
can mask one problem from another and further complicate troubleshooting. This 
latter case presents the most difficult challenge to the expert system: successfully 
identifying more than one problem when multiple problems are present. The 
design of the expert system can accommodate this type of scenario with multiple 
independent user sessions, but careful decision tree structure can minimize these 


instances and identify more than one cause to a problem in a single session. 


B. TROUBLESHOOTING 
The initial identification of a tank/void system problem can come from: 
° soundings 
e tank level indicators 
e water at the boiler front 
° water paste tests 
° requirement to strip excessively 
° requirement to pump excessively 
° overflowing air escapes/sounding tubes 
° discharge from overboard piping 
° excessive draft 
° unable to pump 
The decision making process in troubleshooting a piping system casualty 
begins with an input of what system is disrupted and what the initial symptom of the 


problem is. This information is brought to the attention of the Engineering Officer 


of the Watch in Central Control, the work center supervisor in the oil/water lab, or 
the Damage Control Assistant. 

The trouble shooting process begins based on the experience and intuition of 
the individual to whom the problem is addressed. This, of course, is not a constant. 
The approach to solving a problem can vary widely between individuals, some who 
may have experienced a similar casualty and remembered a prior successful 
solution to that problem. 

A methodical process of elimination is the best approach to a solution, but 
thorough knowledge of the systems involved, the ship's construction, and accurate 
responses to questions are required to produce a least effort path to a solution. This 
is critical in an operating aircraft carrier because the demands of operating the ship 
in a normal state alone taxes the crew, correcting casualties quickly exhausts them. 

Because of this last condition, the first step in troubleshooting is to get as much 
accurate information as possible, with as little physical effort as possible. Simply 
put, you conserve energy. Actions which fall in this category are: 

° taking soundings 
° examining logs 
e making water paste tests 


° reading tank level indicators 


e reading drawings and system technical manuals 


The next step, based on the above information, is to make simple tests using 


accessible equipment. These are: 


* verify the correct line up of installed pumping/stripping systems in the 
machinery spaces 


e verify use of remote operating stations 


disassemble small valves ( 4 inch or smaller ) in machinery spaces/pump 
rooms 


listen to systems Іп operation 


inspect equipment/systems in compartments which are readily entered (no 
bolted access covers). 


Further escalation of troubleshooting should only begin when a problem has 


been isolated to a likely set of causes. Action at this point is one of the following 


categories: 


open and gas free and inspect voids/tanks 
open and pump tanks/voids using portable equipment 


pump contaminated fuel/water out of the ship within the governing 
regulations for the location of the ship 


disassemble large heavy valves (greater than 4 inches) pumps, or other 
complex equipment 


This sequence of actions is driven by conservation of assets and the need to 


minimize disruption of operating systems. The multiple possible paths to solving a 


unique problem, the varying level of experience of operators, and the importance 


of conserving assets, both time and personnel, clearly point to the need for an 


expert system capable of managing a complex object requiring a large number of 


facts stored in an organized database. 


ITI. DESIGN AND IMPLEMENTATION 


The design and implementation of the total "PIPES" system involved the 
investigation of multiple alternatives of how to structure the system to maximize its 
performance with respect to: 

° model design and utility 

° Storage of data 

e database query 

° modification/update of database 


* expert system power 


* memory requirements 
* Speed 
* connection of software 
The following sections describe the evolution of the initial concept and 
understanding of the problem, through the decisions made in the development 


process, to the final configuration of the functional prototype system. 


A. MODELLING THE PIPING SYSTEM 

The initial concept of system design was to utilize a database management 
program to perform central program functions. This was primarily driven by the 
feeling that the difficulty in building the system would center around the details of 
the configuration of the model. The problem was viewed as a challenging database 
problem. This conclusion was drawn from the intimidating size and multiple 
attributes thought felt to be required to deal with a large object such as an aircraft 
carrier. There was also a defined set of queries which were clearly of the DBMS 


type. The intent was to solve the model problem, build a corresponding database 


system, and then utilize an expert system to return troubleshooting problem 
solutions to the database system. The final configuration of the system, after 
evolving through the development cycle, 1s discussed in the Conclusions chapter. 

In making the choice of how to build the database model, consideration was 
given to traditional database structures. A hierarchical system offered no apparent 
utility in exploiting the construction of the ship since there is no hierarchy among 
piping systems or the pieces of a piping system. The compartments within a ship 
could be hierarchically arranged by deck and by position from forward to aft in the 
ship but this did not provide any apparent advantage in dealing with the piping 
systems, so a hierarchical system was rejected. A network system appeared to be 
feasible but while attempting to establish the links in the data structure diagram for 
such a system it became clear that it would be easier to implement a relational 
model. 

The alternative of implementing the relational model in the expert system 
could have been accomplished, but would have required using an unmanageable 
number of facts in a Prolog system. This was judged to be prohibitive in terms of 
both memory requirement and speed of execution. Building a similar system in 
Pascal would have required an even larger quantity of code and would have again 
been a poor design choice for memory and speed reasons. 

A design decision was made to implement the database in a DBMS language to 
attempt to exploit the relational model which had been developed and which was 
thought to offer considerable potential because of its simplicity and apparent 


flexibility. 


B. EXPERT SYSTEM 

The expert system function of the "PIPES" system is required to return 
solutions for specific problems selected by the operator. This meant that at least 
one fact 1s known at the outset of the session. One control structure for this type of 
rule based system is referred to as forward chaining. Essentially the expert system 
is given a fact and it then attempts to find a chain of facts which lead to a definitive 
conclusion. Control structures for expert systems are often combined to take 
advantage of the characteristics of each structure while compromising on the 
limitations brought with both structures. One form of such a combined control 
structure is called rule-cycle hybrid. Stnctly defined, rule-cycle hybrid structures 
cycle through rules, in order, as in backward chaining, however, as facts are 
asserted they are added for use in the next cycle through the rules, as in forward 
chaining. [Ref. 2:p. 105] 

The nature of the problem solving done in troubleshooting shipboard piping 
systems led to the development of a system which employed a decision tree design 
where the entry point to a unique tree was a user Selected problem. After entry into 
the tree, the user is directed to carry out troubleshooting action and then respond to 
questions as to the outcome of his investigations. In this manner virtual facts are 
established, as in forward chaining, through a series of user actions and responses 
which lead down the tree to a conclusion. Each rule which succeeds (establishing a 
virtual fact) thus leads to another rule which in turn must succeed (establishing 
another fact) to reach a conclusion. The design decision of how to connect the 
expert system to the database system presented the most difficult challenge in 
building the system. The available database programs provide no capability to 


make a call to another program, and return to the database program. A major 
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design change іп the structure of the system was forced at this point of 
development. The details of this decision follow. The interface of a expert system 
to DBMS files can be accomplished by calling a specific data file from within the 
expert system. This would mean that none of the DBMS functions would be 
available for query or file modification without quitting the expert system and 
loading the DBMS. The alternative of loading the DBMS each time it was needed, 
and then reloading the expert system, though feasible, was regarded as an 
undesirable degradation, from an operator's performance perspective. 

An obvious alternative was to utilize a more advanced machine and run the 
expert system and DBMS simultaneously with a multi-processor, allowing queries 
to the DBMS without terminating the expert system. This method was judged 
unsatisfactory because of the requirement to be able to operate the system on 
shipboard available equipment, which at best would be 80286 processor based. 

Because the expert system can make calls to external data files, the feasibility of 
calling compiled DBMS program queries was examined. A limited number of 
software routines which would perform some DBMS functions were identified but 
not used because of the limitations on the nature of queries and prohibitive dollar 
cost. The potential performance improvement offered by this approach was a 
significant increase in speed over DBMS commands due to the machine language 
configuration of the already compiled routines. A further option was to write 
drivers in the DBMS program language to perform all of the required calls and 
returns from DBMS. By essentially duplicating explicit DBMS functions, the 
DBMS files could be queried and/or manipulated to return a response without the 
need to carry all of the DBMS's operating overhead and memory requirements. 


The drivers would, as compiled routines also did, significantly speed the response 
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of the database side of the system. Decomposing DBMS program code and writing 
appropriate routines was not in the scope of this thesis. The final design choice was 
a compromise to obtain the desirable modelling and data storage of the DBMS 
system and the efficiency of a Prolog expert system. The connection of the expert 
system to the DBMS was made by running the system from the DBMS system 
program and accessing the expert system by calling the already compiled 
executable Prolog file. The key to making this choice was recognition that the full 
Turbo-Prolog program was a compiled executable program [Ref. 3:p. 160] which 
could be run inside the d-BASE III program [Ref. 4:p. 208] and not exceed the 
640K resident memory limitations of the hardware. An additional design decision 
was made to allow queries in the DBMS side of the system to be made both by using 
functions built for the DBMS program, and by a program feature provided to allow 
user built queries in d-BASE III, enabling full exploitation of the large database. 
This meant that some operator involvement was accepted to allow more complex 


DBMS queries to be made. 


C. SOFTWARE 

D-base III was selected as the database implementation software because it 
Supports the relational database design. The use of the relational database was 
fundamental to the development of a useful model of the ship and its internal 
systems. D-base III is readily available to the potential users of the system and is 
relatively inexpensive. Prolog was chosen for the expert system because it was 
designed for artificial intelligence applications. Prolog solutions are arrived at by 
logically inferring one thing from something that is already known. A Prolog 
program is not a sequence of actions, but a collection of facts together with the 


rules for drawing conclusions from those facts. Prolog more closely follows 
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thinking than procedural programming languages, because it is a declarative 
language. A Prolog program for a given application will typically require only 
one tenth as many program lines as the corresponding Pascal program. 
Turbo-Prolog (Version 2.0) was selected for use in the implementation of the 
expert system because it was the latest and apparently best product available for use 
on the mandated IBM compatible hardware. It is a fifth generation language and, 
like d-BASE III, is both economical to purchase and readily available to potential 


users of the system developed in this thesis. 


D. SCOPE OF PROTOTYPE 

The development of the expert system to do troubleshooting of through tank 
piping system problems first required a problem statement of those casualties 
which the system must be able to solve. 

A decision was made to limit the scope of the expert system to those casualties 
experienced in the CV side protection system (wing tanks). Although the 
troubleshooting solution to these types of problems often extends into the 
machinery spaces and pump rooms, the initial problem areas dealt with by the 
expert system are those found among the menu items below as choices which are 


presented to the user: 


* Damage Control Voids 
e Fuel Oil Service Tanks 
e Fuel Oil Storage/Ballast Tanks 
e Contaminated Tanks 
° JP-5 Tanks 
All of these menu selection tanks are wing tanks. This selection Is the first 


decision a user is required to make in operating the program. 
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The development of the logic for initial symptoms of casualties is done in 
decision trees which are then coded in Prolog. Appendix A contains the logic 
decision trees for the implemented casualties. 

The menu items below appear depending on the selection of the tank type 
problem from the list of tanks above. Thus, the casualties handled by the system 
are: 

1. Damage Control Void 

° Will not pump 

e Pumps but refills with water 
° Will not flood 

e Overflowing 

* Oilina void 


e Sewage in a void 


2. Fuel Oil Service Tank 


e Water present 

e Overflowing 

e Foreign particles 
* Losing fuel 


e Gaining fuel 


3. Fuel Oil Storage Tank 


° Water present 

e Overflowing 

e Foreign particles 
* Losing fuel 


* Gaining fuel 
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4. Contaminated Tank 


* overflowing 


e will not pump 
5. JP-5 Tank 


e water present 
e overflowing 
* losing fuel 

° will not strip 


e will not pump 


E. IMPLEMENTATION OF THE RELATIONAL MODEL 

Modelling a complex physical object is a principle challenge in designing many 
database systems. The creation of a satisfactory model of the multiple and extensive 
piping systems in an aircraft carrier was a primary area of research for this thesis. 

At the outset of implementing the expert system, one approach would have 
been to have used individual Prolog facts to describe the components of each system 
down to the requisite level of detail required to accomplish troubleshooting. This 
approach, while feasible, was judged to be unacceptably costly in memory 
requirements and execution speed. Simply stated, the number of facts was too 
large. 

The power of a database language was needed to structure, manipulate, and 
query the database in a manner which would take advantage of the properties of the 
system being modeled. 

Initial examination of Entity/Relationship models appeared to require 
considerable complexity to successfully model the system and its attributes. The 


requirements were to be able to uniquely identify each section of pipe within the 
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ship, to include location, system, and physical properties such as size and material 
composition. Because the troubleshooting function of the expert system is 
concerned with through tank piping, a model was developed which could be 
reduced to just four relationships, many fewer than was anticipated. All the 
requirements could be met by careful placement of the attributes with the right 
relationship in the model, enabling the use of a surprisingly simple scheme. 
Although the model employed is fully adequate for this expert system, as 
implemented, it would require additional refinement to be expanded to model a 
machinery space or pump room. Because of the size of a main machinery room, 
simply identifying a pipe as being in the compartment is insufficient detail to be 
able to constructively utilize the model. An additional attribute is needed, for 
example "piping segment number" (piece number). This new attribute would be 
made up of the forward most frame number of a pipe within a compartment 
coupled to a port/starboard sequence number thus accommodating multiple pipe 
segments within a large compartment. 

The relational database developed and implemented in dBASE, uniquely 
identifies each pipe in the ship by the compartment number it is contained in, and 
the system that it is a part of. 


Thus the relation diagram (Figure 2) reduces to just four relations. 


16 


СОМРАНТМЕМТ ADJACENT 






CONTAINS 





PIPESYSTEM 


Figure 2. Basic Relation Diagram 


The CONTAINS relation (Figure 3) is keyed by compartment number to each 


pipe within that compartment. 


COMPARTMENT SYSTEM NUMBER 
9-119-11-Е 


8-119-13-F 
8-119-11-F 





Figure 3. Contains Relation 
represents a portion of the database describing which pipes are actually physically 


located in compartment 8-119-9-V. The PIPESYSTEM relation (Figure 4) 


System Number Pipe System Size Material Couplings 
FOS 8-119-11-F Fuel Oil Service 4 steel 


FOT 8-119-11-F Fuel Oil Transfer 5 Steel 
FOT 8-119-13-F Fuel Oil Transfer 5 steel 





Figure 4. Pipesystem Relation 
depicts the noun name of the system, the size (diameter) of a pipe in inches, the 


material composition, and the type of Joint make up used. These attributes are used 


ШІ 


to maintain a current database for the configuration of the ship to support long 
term maintenance planning. The repairs include the replacement of deteriorated 
carbon steel piping, hence the material attribute, with copper nickel piping and the 
change of troublesome sleeve couplings with those of socket design, thus the 
coupling attribute. The size aids in the identification of a pipe when a tank/void is 
opened and inspected. 

The ADJACENT relation (Figure 5)......... locates 


Compartment Forward Aft Starboard Port Above 


8-119-9-V 8-114-9-У 8-124-3-Е 8-119-11-Е 8-119-7-У 4-119-5-У 





Figure 5. Adjacent Relation 
locates the compartment in the ship with respect to the other compartments and is 
used in troubleshooting logic and in maintenance planning to predict access and gas 
free requirements. 


The COMPARTMENT relation (Figure 6) 


String Usage Compartment Date Paint Date Completed 


1195 Void 8-119-9-V 4-83 4-85 





Figure 6. Compartment Relation 
identifies the string which a compartment is a member of, and records historical 
maintenance data pertinent to the entire compartment. The complete relational 
diagram appears in Apopendix B.1. 
Thus an apparently complex modeling problem was reduced to its fundamental 
relationships in a powerful relational database. The central relationship in this 


model and the basis for its power is the Contains relation. By subdividing the 
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aircraft carrier down to compartments, the common building block of the model, it 
becomes possible to depict the entire ship or only an area of the ship in which you 
are interested. In this thesis, for example, we only are interested in the fourth deck 
and below compartments. Thus everything above 45 feet above the keel (the height 
of the fourth deck) is not present in the database, because it is not relevant to 
through tank piping. 

By utilizing the Adjacent relation and the Contains relation it 1s possible to 
trace a pipe through the entire ship. For example, if compartment 8-119-9-V is a 
suspected problem void, the Adjacent relation tells us that there are compartments 
8-119-7-V and 8-119-11-F inboard and outboard respectively of the problem void. 
The Contains relation then tells us that pipe system FOT 8-119-13-F (actually a 
section of pipe) is contained in each of three voids/tanks. We can thus trace this 
pipe through at least 3 compartments. If we look at the Pipe System relation we 
find that FOT 8- 119-13-F is a fuel oil transfer pipe, 5 inches in diameter, and made 
of carbon steel. The Compartment relation tells us that 8-119-9-V, the original 
problem void, is in string 119S. Other compartments in string 119S appear in 
Figure 7. 


8-119-1-W 8-119-9-V 
8-119-3-W 8-119-11-F 


8-119-5-F 8-119-13-F 
8-119-7-V 8-119-15-V 





Figure 7. String 1195 Compartments 
A check of Contains for these compartments reveals that pipe system FOT 8- 
119-13-F onginates in 8-119-5-F, passes through 7-V, 9-V, 11-F, and terminates 


in 13-F. The value of the compartment relation is that it identifies the 
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compartments in a string. From a given compartment, a string could be built by 
multiple calls to adjacent. Providing the relation minimizes repetitive manipulation 
of the database to obtain a frequently needed and useful fact. The relationship that 
may not be apparent is that most piping runs, run athwartship within the boundary 
of a string. The database design takes advantage of this property easing the 
modeling of a piping system by speeding the location of other compartments 
containing a section of pipe belonging to a specific system. Summarizing, the four 
relations contribute to the utility of the model as follows: 


* CONTAINS: identifies unique pipes in a compartment by pipe system 


e ADJACENT: locates a compartment within its surrounding compartments 
providing the mechanism for the building block concept in the model 


e COMPARTMENT: identifies the string a compartment is in, useful in that it 
relates a small group of compartments adjacent to each other within the ship 


e PIPE SYSTEM: allows the attributes of an entire system to be carried in a 
single tuple, rather than repeated for each compartment 


F. PROTOTYPE DEMONSTRATION 
The initial step in operating the system is to start "PIPES". The following 
screen displays will provide a demonstration of the steps reguired to operate both 
the d- BASE III portion of the system and how to enter the troubleshooting mode of 
operation performed by the expert system side of the system. 
1. Database System Operation 
The first menu (Figure 8) presented to the operator from the database 


offers a choice system functions. 
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PIPES DATABASE 


Add/Edit Database Record 

Query Database 

Print Database Records 

Backup Database 

PIPES - Expert System 
Select Option 

Press ESC to EXIT 







о» 


Figure 8. Pipes Database Menu 


If the user desires to query the database, for an example, he would type 


"Q", which would bring up the database query (Figure 9) menu 


PIPES SYSTEM QUERIES 


Compartment Access Strings 
Pipe Systems Tanks by type 


Adjacent tanks Inboard Tanks 
List of paint dates Unlisted Query 
Select Option 

Press ESC to EXIT 





Figure 9. Database Query Menu 
From the database menu the user presses the appropriate letter key. If he 
desired for example, to know the pipes in a compartment he would press "P". The 


piping system query menu (Figure 10) would appear: 
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PIPE SYSTEM QUERIES 


Pipes passing through compartment 
Compartments containing pipe system 


Specific pipe system material 
List of pipe systems by material 
Select Option: 

Press ESC to EXIT 





Figure 10. Piping System Queries 
If it is desired at this point to know the specific pipes in a compartment, 


the user presses "P", which prompts him for the compartment number desired 


(Figure 11). 


COMPARTMENT TO QUERY 


Compartment No 8-119-9-V 





Press ESC to EXIT 


Figure 11. Compartment Prompt 
The compartment number is entered by the user, as in the example above, 
"8-119-9-V" has been entered. The d-BASE III program at this point has sufficient 


input to conduct the query and respond. (Figure 12) 
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PIPE SYSTEMS PASSING THROUGH COMPARTMENT 8-119-9-V 


System Number: FOS 8-119-11-Е 


Press <- to BROWSE 
Press ESC to EXIT 
Press HOME to Print 





Figure 12. System Response to Query 
The "Press <- to BROWSE” option allows the user to individually view 
the database contents for that query. The "Press HOME to Print" option is 


provided to print out all the pipes contained in the database for that query, as in 


Figure 13. 


Pipes Passing Through 8-119-9-V 


FOS 8-119-11-F 
FOT 8-119-11-F 
FOT 8-119-13-F 


BAL 8-119-13-F 
STR 8-119-11-F 
VOID 8-119-15-V 
FOR 8-119-11-F 





Figure 13. All Pipes Contained in 8-119-9-V 
2. Expert System Operation 
The expert system is entered from the database system by selecting 
"PIPES-Expert System" from the top level database menu (Figure 8), by pressing 


the "E" key. The expert system will be activated and the PIPES-Expert System 
Menu (Figure 14) will appear. 
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TROUBLESHOOTING AIRCRAFT CARRIER THROUGH-TANK PIPING SYSTEMS 


Main menu 
Tutorial 


Graphics 
Problem Analyzer 
Query Database 





Esc:Quit -- Use arrow keys to select -- Enter to activate 


Figure 14. Expert System Menu 
The operator must select "Problem Analyzer”, using the arrow keys, if he 
desires to use the system for troubleshooting. If the “Problem Analyzer" is 


selected, the screen appears as in Figure 15. 


TROUBLESHOOTING AIRCRAFT CARRIER THROUGH-TANK PIPING SYSTEMS 


Problem Analysis 


Select Tank 
Void 
Fuel Oil Service 
Fuel Oil Storage 
Contaminated 
JP-5 





Esc:Quit -- Use arrow keys to select -- Enter to activate 


Figure 15. Problem Analysis Menu 


24 


From the above menu the user must select the type of tank in which the 
problem is being experienced. For example, if the problem is in a fuel oil service 
tank the user uses the arrow keys to select "Fuel Oil Service". The fuel oil service 
tank problem menu (Figure 16) will prompt the user to narrow the problem 


definition by selecting the nature of the casualty from the menu. 


TROUBLESHOOTING AIRCRAFT CARRIER THROUGH-TANK PIPING SYSTEMS 
Action 


Problem Analysis 


Select Tank 
Water in the tank 
Overflowing 
Foreign particles 
Losing fuel 
Gaining fuel 





Esc:Quit -- Use arrow keys to select -- Enter to activate 
Figure 16. Fuel Oil Service Tank Problem Menu 
If the problem is "water in the tank", the user selects this menu item with 


the arrow keys, and is prompted in the screen below for the compartment number 


of the problem tank.(Figure 17) 
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TROUBLESHOOTING AIRCRAFT CARRIER THROUGH-TANK PIPING SYSTEM 


Problem Analysis 


What is the compartment number of the problem tank? 8-119-11-F 


ESC: Ouit --F1-- Print Action Block 





Figure 17. Prompt for Compartment Number 
The user must type in the correct compartment number of the problem 
tank, as for example, 8-119-11-F. Prompts will appear (Figure 18) directing the 
user to take action as indicated in the upper box labelled "ACTION", and then ask 
the user to respond to a question as to the outcome of the action taken. An example 


of such a screen 1S: 
TROUBLESHOOTING AIRCRAFT CARRIER THROUGH-TANK PIPING SYSTEMS 


Action 


Pump down fuel oil service tank 8-119-11-F and inspect 2 1/2 inch 
void suction line in service tank for cracked or leaking couplings 


Problem Analysis 
Are there any leaks in the 2 1/2 inch void suction line? 





Esc: Quit --F1-- Print Action Block 


Figure 18. Action Prompt 
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After performing the action requested, the user responded with a "yes", 
as indicated above, to the question asked by the system. The answer in this case is a 


conclusive one, and thus the system responds with the solution to the problem 
(Figure 19). 


TROUBLESHOOTING AIRCRAFT CARRIER THROUGH-TANK PIPING SYSTEMS 


Solution 


The void suction line to the outboard void 8-119-15-V is ruptured in 
8-19-11-F. Empty, clean, gas free, and repair the break in the 2.5 inch 
void suction line in 8-119-11-F 





Esc: Quit --F1-- Print Action Block 


Figure 19. Troubleshooting Solution 
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IV. CONCLUSIONS 


A. DATABASE SYSTEM/EXPERT SYSTEM CONNECTION 
The development of an expert system which operates efficiently by employing 

a database system for data storage, retrieval, queries, and update has significant 
advantages. By using readily available software and hardware a valuable tool for 
fleet use can readily be built. The combination of d-BASE III and Turbo-Prolog, 
both popular economical software products, and a minimum 8086 or 80286 based, 
IBM compatible microcomputer produced a reliable, useful tool for assisting 
decision making in a complex environment. The advantages of combining the 
power of the database system and an expert system are: 

* employment of relational data model by the expert system 

e higher speed of execution for the expert system 

e reduced memory requirements 

° greater total system capability/flexibility 


° ease of data file construction 


° ease of file maintenance 
The dBASE program provides the framework for building data files which 
enable a relational database model to be employed. The ability to build the 
relational model and readily implement it in the database assists understanding the 
organization and implementation of the expert system. Speed of execution is gained 
in the Prolog program by reducing the number of facts which the interpreter must 
process. This is accomplished by storing the facts concerning the configuration of 


an aircraft carrier in the database system, rather than as prolog facts. Only the 
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appropriate facts are called from the database and built as Prolog facts for use by 
the expert system. 

Reduction of memory requirements is achieved by storing the facts in the 
database format rather than as prolog facts. The compact storage of the database 
files saves the replication of the predicate portion of each Prolog fact. The savings 
in memory storage for the configuration of the ship is 50 to 70 percent of that 
required for storing large numbers of Prolog facts in the predicate lists. 

The Bru of dBASE queries can provide information from the database 
which can aid the user in decision making and fault isolation. The database by 
virtue of modeling the ship's piping systems has value beyond that of the expert 
system. The utility of the database is virtually that of a piping system diagram, and 
can assist in isolating systems, isolating compartments, damage control decisions, 
casualty control, and normal operation of systems. 

The use of dBASE to maintain data files eases maintenance and construction of 
files. Because an instance of the database can be used to build more than one fact, 
updating the database for the single instance in the database, saves changing 
multiple predicates in the expert system. The organization of the database readily 


allows location and access of a specific instance needing modification. 


B. REFINING THE PROTOTYPE 
There are five areas in which the prototype could be further developed to 


expand its utility and scope of application. 


e The relational model designed for the database system offers the flexibility 
to significantly increase the number of attributes, making the database a 
more powerful model of the detail of the ship. The potential exists to expand 
the database to store enough useful information as to define the exact 
configuration of the ship. 


D 


For nine of the most important through-tank piping casualties the prototype 
is fully operational in a real environment. The expert system can be extended 
by the addition of the trouble shooting options offered in the two user 
problem selection menus but not installed in the system. 


The installation of this prototype requires the building of the database for 
each specific aircraft carrier to which it will be applied to. This capability is 
fully provided for in the prototype. It is accomplished by using program 
menus for file construction and maintenance. 


The implementation of a maintenance planning function in the expert system, 
to include decision making capability for establishing the priority of repairs 
and the development of schedules, would add a significant and useful 
dimension to the prototype system. 


The expansion of the graphical presentation of the ships piping systems is an 
important area in the design of the prototype. 


C. POTENTIAL EXPERT SYSTEMS 


The application of expert systems to shipboard decision making processes has 


extensive scope and potential for making significant impact on the reliability, 


correctness, and efficiency of daily shipboard operation. Expert systems, similar 


to the one developed in this thesis,could be built for the any of the following unique 


engineering casualty control/management problems: 


loss of main engine vacuum 
condensate/feed system salt contamination 
evaporator troubleshooting 

O2N2 plant 

automatic combustion control system 
boiler water/feed water chemistry 


aircraft carrier multi plant engineering drills 


The considerable contribution that such development and implementation 


would make to fleet readiness is worth further investigation. 


30 


APPENDIX A. DECISION TREES 
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Figure Al D.C, Void Will Not Pump 
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Figure А, D.C. Void Pumps But Refills With Water 
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Figure A3 Damage Control Void Will Not Flood 
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Figure A.4 Damage Control Vold Overflowing 
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APPENDIX C. PROGRAM LISTING 


ЕЕЕ ЕЖ ЕЕ Ж ЖЕ ЕЖ k А ааа i bil YT TI T U UU U L 


TROUBLE.PRO 

Driver for the PIPES Expert system. 
The following files are compiled and linked by the 
Pipes.prj PROJECT FILE into PIPES.EXE executed from 
PIPES BASE III PLUS System 

DataBase.pro 

Screen.pro 

Question.pro 

Solution.pro 

VoidNoPm.pro 

VoidOil.pro 

VoidPump.pro 

WaterFos.pro 

WaterFot.pro 

FosLosFl.pro 

VoidNoFd.pro 

FosOvrFl.pro 

VoidOvrF.pro 

FotOvrFl.pro 

ContmOvr.pro 

Fact.pro 


X X X X X X X X X X X X X X X X X X X X KF OK OK OF 
y X X X X X X X X x x xx x X x X X x x X X x % + 


ЖЕЖ ЖЖ ЖЖЖ ЖЖ ЖЖЖ Ж Ж ЖЕЖ ЖЖЖ Ж ж ка на атала D 


сойе - 4000 
project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 
include "AnaGdef.PRO" 
include "Pipegraph.PRO" 
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NL -—U——A— “елене 


PREDICATES 


mainmenu 

proces(INTEGER) 
drawtank(INTEGER) 

evaluate( SYMBOL) 
problemmenu(LIST,S YMBOL) 
problem type(SYMBOL,INTEGER) 
determine(INTEGER) 

contains. fuel 

print tanks/:SGYMBOL, SYMBOL) 
find string( SYMBOL) 

retrieve tank( SYMBOL, SYMBOL) 
ans(CHAR) 

convert case(SYMBOL, SYMBOL) 
get problem tank 

port stbd( SYMBOL, SYMBOL) 
side INTEGER, SYMBOL) 

inboard, voids 

outboard voids 

parse tank port stbd( SYMBOL, SYMBOL) 
find inbd voids(INTEGER) 

find otbd voids(INTEGER) 

assert inboards(INTEGER) 

assert outboards(INTEGER) 
assert inboard voids(SYMBOL) 
assert outboard, voids(G YMBOL) 
troubleshoot 


MEL ooo te duh + K j noe REOR ee ek beoe eese ok oe ok ЖЕЖ ЖЖЖ k k k k k 


T MAIN MENU s 


М ЕЕЕ ЕЕЕ ЕЕЕ ЯО ЕЕЕ ОВК у 


GOAL 
pipecover,troubleshoot. 
CLAUSES 
troubleshoot:- 
makewindow(21,78,0,"",24,0,1,80),clearwindow,write 
("Esc:Ouit -- -- Use arrow keys to 
select-- -- Enter to activate"), 
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makewindow(22,78,0,"",24,0,1,80), 

write("Esc: Quit -- F1 -- Print 

Action Block"), 

makewindow(2,7,23, 

"TROUBLESHOOTING AIRCRAFT CARRIER THROUGH-TANK 

PIPING SYSTEMS", 

0,0,24,80),! mainmenu. 
mainmenu:- repeat, 
shiftwindow(2),clearwindow,menu(3,14,47,14,5,"Main menu", 

[ "Tutorial", 

"Graphics", 

"Problem Analyzer", 

"Query Database `], 
CHOICE),proces(CHOICE),CHOICE=0,!, 
removewindow(2,1), removewindow(21,1). 

proces(0):-retract_facts,makewindow(10,11,2, "EXIT", 
18,4,3,50), 
write(" Are you sure you want to quit? (Y/N):"), 
readchar(ANS), 
ans(ANS), removewindow(10,1),!. 
proces(0):-! removewindow(10,1). 


proces(1):-file str("trouble.hlp",TXT),display(TXT), 
clearwindow,!. 


proces(1):-!,write(">> trouble.hlp not in default 
directory\n"). 


proces(2):-repeat,shiftwindow(2),clearwindow, 
makewindow(4,78,7,"Piping 
Diagrams",13,5,10,70), 
shiftwindow(4), 
menu(5,47,7,14,7, Diagrams",["Single Tank“, 
"Tank String", 
"Zones" ," Tank Sections"], 
CHOICE), removewindow(4,1), 
drawtank(CHOICE),CHOICE = 0. 


proces(3):-repeat,shiftwindow(2),clearwindow, 
makewindow(4,78,7,"Problem 
Analysis" ,13,5,10,70), 
shiftwindow(4), 
menu(5,47,7,14,7,"Select Tank" ["Void" "Fuel 
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Oil Service”,"Fuel Oil Storage”, 
"Contaminated","JP-5"], CHOICE), 
determine(CHOICE),CHOICE = 0,!. 


proces(4). 


ans( y). 
ans( Y). 


determine(0):-removewindow(4,1). 
determine(1):-evaluate(void). 
determine(1):-retract facts,removewindow(4,1). 
determine(2):-evaluate("fuel oil service“). 
determine(2):-retract_facts,removewindow(4,1). 
determine(3):-evaluate("fuel_o1l_storage”). 
determine(3):-retract_facts,removewindow(4,1). 
determine(4):-evaluate(contaminated). 
determine(4):-retract_facts,removewindow(4,1). 
determine(5):-evaluate("JP-5"). 
determine(5):-retract_facts,removewindow(4,1). 


evaluate(void):- makewindow(7,47,7,"Action",1,5,12,70), 
assert empty fact,problemmenu(["Oil in void", 

"Unable to pump“, 

“Unable to flood", 

“Pumps but refills with water", 

"Filled with sewage", 

"Overflowing"|,void) removewindow(7,1),!. 
evaluate(void):- removewindow(7,1). 


evaluate(fuel_oil_service):- 
makewindow(7,47,7," Action",1,5,12,70), 
assert empty. fact,!, 
problemmenu([" Water in the tank", 
"Overflowing", 
"Foriegn particles", 
"Losing fuel", 
"Gaining fuel" ],"fuel oil 
service“ ),removewindow(7,1),!. 
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evaluate(fuel_oil_service):- removewindow(7,1). 


evaluate(fuel_oil_storage):- 
makewindow(7,47,7,"Action",1,5,12,70), 
assert, empty. fact,!, 
problemmenu([" Water in the tank", 
"Overflowing", 
"Foriegn particles", 
"Losing fuel", 
"Gaining fuel" ],"fuel oil 
storage "),removewindow(7,1),!. 
evaluate(fuel oil storage):- removewindow(7,1). 


evaluate(contaminated):- 
makewindow(7,47,7," Action",1,5,12,70), 
assert empty. fact,!, 
problemmenu(["High percentage of oil in 
tank","Flooding with water”, 
"Will not take suction", 
“Unable to fill", 
"Overflowing", 
"Draining without suction" ]," contaminated"), 
removewindow(7,1 ),!. 
evaluate(contaminated):- removewindow(7,1). 


drawtank(0):-removewindow(4,1). 
drawtank(1):-makewindow(5,47,7,"",5,5,11,70), 
shiftwindow(5), 
ask ques read ans(TANK, "single tank"), 
singleTank(TANK),removewindow(5,1),!. 
drawtank(1 ):-retract_facts,removewindow(5,1). 


drawtank(2). 

drawtank(3). 

drawtank(4). 

problemmenu(LIST,MENU):- shiftwindow(4),clearwindow, 
menu(6,30,7,14,7,"" LIST, CHOICE), 
shiftwindow(4), clearwindow, 


| problem_type(MENU,CHOICE), 
removewindow(4,1),!. 
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problemmenu(_,_):-retract_facts,removewindow(7,1). 


get problem tank:- ask_ques_read_ans(FOSERVTK,"tankno”), 
assert(problem tank(FOSERVTK),problem). 


problem type( ,0). 


problem type(void,1):- get problem tank,retrieve contains, 
add problem(["oil in void" ]), 
contains, fuel,fuel( ), 
ask ques read ans(LOSINGFUEL, "losing fuel"),!, 
losingfuel(LOSINGFUEL),solution. 


problem_type(void,1):- !, 
ask ques read ans(FOURTH,"fourth deck“),!, 
fourthdeck(FOURTH), solution. 


problem, type(void,2):- 
get problem tank,!,add, problem(["unable to pump" ]), 
! find. string( STRING. NUM),etrieve string( STRING, NUM),!, 
ask ques, read ans(LOSING. FUEL WATER,"void losing fuel 
water" ),!, losing. fuel. water LOSING FUEL WATER), 
solution. 


problem type(void,3). 
problem type(void,4):-get problem, tank,!, 
find string(S TRING. NUM)j;retrieve, string(STRING. NUM), 
inboard voids, 
add, problem([" pumps but refills" ]),!, 
retrieve adjacent(above),!, 
ask ques read ans(SEA VALVE,"sea valve 
leak" ),sea_valve_leak(SEA_VALVE), solution. 
problem_type(void,5). 


problem_type(void,6). 


problem type("fuel oil service”,1):- !, 


4] 





get_problem_tank,!,add_problem(["water in 
fuel" ]),!, 


find_string(STRING_NUM),retrieve_string(STRING_NUM), 
inboard voids,outboard voids,!, 
retrieve, adjacent(above),!, 
ask ques read ans(FILLED, "fuel filled 
from"),! asserta(filled from(FILLED), 
problem), !,paste_test("Y"),!, 
solution. 


problem, type("fuel oil service“,2):- !, 
ask ques read ans( ,"overflowing"),!, 
retrieve contains,solution,!. 

problem type("fuel oil service" ,3). 


problem , type("fuel oil service",4):- get problem tank, 
find string( STRING. NUM),retrieve string(STRING NUM), 
ask ques read ans(OIL,"voids have oil"), 
voids. oil( OIL),!,solution.*/ 


problem type("fuel oil service" ,4):- !, 
ask ques read ans(FOURTH, fourth deck"),!, 
fourthdeck(FOURTH),solution. 


problem type("fuel oil service",5). 
problem type("fuel oil storage",1):- !, 
get problem tank,!,add problem([" water in 
fuel" ]),!, 
find_string(STRING_NUM),retrieve_string(STRING_NUM), 
inboard_voids,outboard_voids,!, 
retrieve, adjacent(above),!, 
from" ),assert, filled(FILLED), 
solution. 
problem type(contaminated, 1). 
problem type("JP-5",1). 


assert filled(FILLED):- str len(FILLED,LEN) LEN <> 0, 
asserta(filled_from(FILLED),problem),!, 
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fot_paste_test("Y"),!. 
assert_filled(_):- !,fot_paste_test("N"). 


contains_fuel:-contains(_,SYSTEM), 
frontchar(S YSTEM, ,REST), 
frontstr(3,REST,SYS, ), 
enter. fuel fact(SYS,REST). 


contains. fuel. 


ask ques read ans(ANSWER,QUES  NO):- !, 
question(QUES NO), 
! readIn(INPUT), 
convert case(INPUT,ANSWER),clearwindow. 


convert case(INPUT,ANSWER):- upper lower( ANSWER INPUT). 
convert_case(INPUT,ANSWER):- ANSWER = INPUT. 


prin(TANK_TYPE,WINDOW):-retrieve_tank(TANK_TYPE, WINDOW), 
nl. | 
print(TANK TYPE, ):- error(rTANK TYPE). 


retrieve. tank( "adjacent fuel", WINDOW).:- 
adjacent. fuel tanks(TANKS5), 
print tanks(WINDOW,TANKS) fail. 


retrieve_tank("adjacent fuel“, ):- adjacent fuel tanks( ). 


retrieve tank("fuel tanks", WINDOW):- 
fuel(TANKS),print tanks(:WINDOW,TANKS) fail. 


retrieve tank("fuel tanks", ):- fuel( ). 
retrieve tank("adjacent tanks", WINDOW):- 
adjacent. tanks( TANK 5), 
print tanks(WINDOW,TANKS) fail. 
retrieve. tank("adjacent tanks", ):- adjacent tanks( ). 
retrieve tank("string fuel tanks", WINDOW]):- 


string fuel tanks(TANK5), 
print tanks(WINDOW,TANKS) fail. 
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retrieve tank("string fuel tanks", ):- 
string fuel tanks( ). 


retrieve tank(" voids in string", WINDOW ):- 
string void tanks(TANKS), 
print tanks(WINDOW,/TANKS) fail. 
retrieve tank("voids in string", ):- string void tanks( ). 
retrieve tank("string voids in tank", WINDOW):- 
string void, in tank(TANKS), 
print tanks(WINDOW,TANKS) fail. 
retrieve_tank("string voids in tank“, ):- 
string void in tank( ). 
retrieve tank("inboard voids", WINDOW):-inbd void(TANK), 
print tanks(:WINDOW,TANK) fail. 


retrieve tank("inboard voids", ):- inbd void( ). 


retrieve tank("outboard voids" WINDOW):- otbd void(TANK), 
print tanks(WINDOW,TANK) fail. 


retrieve tank("outboard voids",_):- otbd_void(_). 
retrieve tank( , ):- fail. 

print tanks(WINDOW,TANKS):-!, 

position in window(WINDOW),wnte(TANKS). 
error(" adjacent fuel"):- write(" AT ERROR ),readchar(. ). 
error("fuel tank" ):- write" AT ERROR "),readchar( ). 
error("adjacent tanks"):- write(" AT ERROR "),readchar( ). 


error(" string fuel tanks"):- write("AT 
ERROR ),readchar(. ). 


error(^ voids in string^):- write" AT ERROR "),readchar( ). 


error("string voids in tank"):- write(" AT 
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ERROR"),readchar(_). 
error("inboard voids“):- indeterminate,solution,! fail. 


error("outboard voids"):- write(" AT ERROR "),readchar( ). 
find. string(STRING, NUM):-problem tank(TANK), 
fronttoken( TANK, ,REST), 
fronttoken(REST, ,STR1), 
fronttoken( STR1, STRING. NO,STR2), 
fronttoken(STR2, ,STR3), 
fronttoken(STR3,PORT STBD, ), 
port. stbd(PORT. STBD,SIDE), 
concat( STRING NO,SIDE, STRING NUM ). 


inboard voids:- problem tank(TANK), 
parse tank port. stbd(TANK, PROB TANK), 
str in(PROB. TANK.PROB PORT. STBD), 
find inbd voids(PROB PORT. STBD). 


outboard voids:- problem, tank(TANK), 
parse. tank port stbd(TANK,PROB, TANK), 
str inttPROB. TANK,PROB. PORT. STBD), 
find otbd voids(»PROB PORT. STBD). 
parse tank port stbd(TANK,PORT STBD):- 
fronttoken(TANK,_,REST), 
fronttoken(REST,_,STR1), fronttoken(STR1,_,STR2), 
fronttoken(STR2,_,STR3), 
fronttoken(STR3,PORT STBD, ). 


find inbd voids(PROB PORT STBD):- string, void tanks( ), 
assert inboards(PROB PORT STBD). 
find inbd voids( ):- write("error“). 


find otbd voids(PROB PORT STBD):- string void tanks( ), 
assert outboards(PROB PORT STBD). 
find otbd voids( ):- error(" voids in string"). 


assert inboards(PROB PORT STBD):- string void tanks(TANK), 
parse tank port stbd(TANK,TANK PORT STBD), 
str int(TANK PORT STBD,PORT STBD), 
PORT. STBD « PROB PORT STBD, 
assert inboard, voids(TANK) fail. 
assert. inboards(. ). 
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assert_inboard_voids(TANK):- 
assertz(inbd_void(TANK),problem). 


assert_outboards(PROB_PORT_STBD):- 
string_void_tanks(TANK), 
parse_tank_port_stbd(TANK,TANK_PORT_STBD), 
str int(TANK PORT STBD,PORT STBD), 
PORT STBD > PROB PORT STBD, 
assert outboard voids(TANK) fail. 
assert outboards( ). 


assert outboard voids( TANK):- 
assertz(otbd void( TANK),problem). 


port. stbd(PORT. STBD,SIDE):- str int(PORT STBD,INT),ANS z 
INT mod 2, 
! side(ANS,SIDE). 
side(0,SIDE):- SIDE = "Р". 
side(_,SIDE):- SIDE = "S". 


indeterminate:- retract_facts,assert_empty_fact,!, 
add. problem(["indeterminate data" ]). 


ЖЕЖҰЖЖЖЖЕЖЕЖЖЖЖЖЖЖЖЖЖЕЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЕЖЖЖЖЖЖҰ K K K kK kK K KK k K k K k kK k k K K K k 


* * 
s PIPEGDOM.PRO » 
E GLOBAL DOMAINS т 
* * 


Ж ЖЖЖ ЖЕЖ ЖЕЖ ЕЕ ЖАЖА ЕЖ E жетк ОЕЕО ЕСО ЕИО 


GLOBAL DOMAINS 
LIST = SYMBOL* 
file = datafile 
OUES VAR = SYMBOL 
WNO,SCRATTR,FRAMATTR,ROW,COL,LEN = INTEGER 
KEY =cr; esc; break ; tab; btab; del; 
bdel ; ins ; end ; home ; function INTEGER) ; up ; down ; 
left ; right ; 
ctrileft; ctringht; ctrlend; ctrlhome; pgup; pgdn; 
chr(CHAR) ; otherspec 


52 


ЖЖЖ ЖЖЖЖҰЖЖЖЖҰЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЕЖЖЖЕЖЖЖ 
ж 


ж 
* GLOBDEF.PRO Ü 
* GLOBAL DECLARATIONS Ж 
ж ж 


ЖКЖ ЖЖЖ Ж ЖЖЖ ЖЖЖ ЖЖЖ ЖЖ ЖЖЖ ЖЖ Ж ЖЖ ЖЖЖ K K J 
GLOBAL PREDICATES 


nondeterm question(S YMBOL) - (1) 
nondeterm write solution(LIST) -(1) 
nondeterm menu(WNO,SCRATTR,FRAMATTR, 


nondeterm write screen(LIST)- (1) 

nondeterm repeat 

solution 

position in window(SYMBOL)-(1) 

nondeterm retrieve contains 

nondeterm retrieve_adjacent(S YMBOL)-() 
nondeterm retrieve_string(S YMBOL)-(1) 
nondeterm add problem(LIST)-(1) 
append(LIST,LIST,LIST)-(1,1,0) 

nondeterm error(S Y MBOL)-(1) 

retract facts 

nondeterm print(S YMBOL,SYMBOL)-(1,1) 
enter_fuel_fact(S YMBOL,S YMBOL)-(i,1) 
compare string void to contains 

nondeterm assert. fact( SYMBOL, SYMBOL )-(1,1) 
assert empty. fact 

nondeterm ask gues read ans(SYMBOL,SYMBOL)-(0,1) 


ЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
ж 


ж 
ж ANAGDEF.PRO T 
б GLOBAL DECLARATIONS M 
ж ж 


МООН КЕЕ ЕКЕ ek k k k ok ok k k kkk k kok kkk kk / 


GLOBAL PREDICATES 
nondeterm indeterminate 


nondeterm losingfuel(SYMBOL)-(1) 
nondeterm paste, test( SYMBOL )-(1) 
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nondeterm fot paste test(SYMBOL)-(1) 
nondeterm fourthdeck(S YMBOL)-(1) 
nondeterm losing fuel water(SYMBOL)-(1) 
nondeterm voids. oil(S YMBOL)-(1) 

nondeterm sea, valve, leak( SYMBOL)-(1) 
nondeterm fot paste( SYMBOL)-(1) 

nondeterm assert filled(SYMBOL)-(1) 
nondeterm fos pump run refuel(SYMBOL)-(1) 
nondeterm fot. pump, run refuellSYMBOL)-(1) 
nondeterm mmr strip pump(SYMBOL)-(1) 
nondeterm clear sounding tube(SYMBOL)-(1) 
nondeterm void ovrflow(SYMBOL)-(1) 


ak Æ k k k Dle Æ k k Dle e ale af ade aj ode Æ k k k e ale ae e ae od ade ae ale ade k k oie oe aj de ie R R RO RO K ORO K 2 oie R E 9 k k k k k k k ok k 


* * 
+ PIPEGDBASE.PRO ы 
x * 


ae Se Se Se Se ae Se he She Sk ke ke Sk SK k sk Sk ke ЖЖ ЕЖ Ж ЖЕЖ ЖЖЖ ЕЖЕН cc J D CE 


GLOBAL DATABASE - problem 


contains(S YMBOL,S YMBOL) 
problem_tank(S YMBOL) 
user_data 

first_char(CHAR) 

adjacent tanks(SYMBOL) 

adjacent fuel tanks(SYMBOL) 
string tanks(SYMBOL) 

string fuel tanks(:SYMBOL) 
string void, tanks(SYMBOL) 
string void in tank( SYMBOL) 
which, tank losing fuel(S YMBOL) 
above tank(SYMBOL) 

filled from( SYMBOL) 
otbd_void(S YMBOL) 
inbd_void(S YMBOL) 
nondeterm fuel(S YMBOL) 
count(INTEGER) 
problem(LIST) 
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ЕЕЕ E E ere a E A ok ЖЕ Ж А Ж ЖЕЖ Ж Ж ЖЖ ЖӘ Ж 


ж ж 
ж DATABASE.PRO E 
* * 


NEL Loeb eter Ж Ж А Ж ЖЖЖ ЖЖЖ ЖЖЖ ЖЖ / 


project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase. PRO" 


PREDICATES 


search contains(S YMBOL,INTEGER) 

search. adjacent(S YMBOL,INTEGER) 

search string( SYMBOL) 

compare contains(SYMBOL, SYMBOL, SYMBOL) 
compare adjacent(SYMBOL,SYMBOL, SYMBOL INTEGER) 
compare. string(SYMBOL, SYMBOL,SYMBOL) 
compare string to problem tank 

moredata(file) 

find, space(SYMBOL,INTEGER) 

split. string(INTEGER,SYMBOL, SYMBOL, SYMBOL) 
is space(INTEGER,INTEGER, SYMBOL) 

check adjacent(SYMBOL) 

check, string( SYMBOL) 

which adjacent(SYMBOL) 

which tanks in string 

find adj tanks(SYMBOL) 

find above tank 

find string tanks(SYMBOL) 

check empty list(LIST,LIST) 

assert string void in tank( SYMBOL) 


CLAUSES 
retrieve adjacent(WHICH):- 
openread(datafile,"adjacent.txt"), readdevice(datafile), 


problem tank( COMP NUM), str len(COMP  NUM,LENGTH), 


search adjacent(COMP NUM, LENGTH), closefile(datafile), 
readdevice(keyboard), 
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which adjacent(WHICH). 
retrieve_adjacent(_):- 
closefile(datafile). 


which_adjacent(WHICH):- WHICH = 
"all" adjacent_tanks(TANKS), 
find_adj_tanks(TANKS). 
which_adjacent(WHICH):- WHICH = "above" find above tank. 


find above tank:- 
adjacent tanks(TANK),str len(TANK,LEN), LENGTH = LEN - 
13,frontst(LENGTH,TANK, LAST), find space(LAST,0), 
count(COUNT),frontsttr(COUNT,LAST, ,АВОУЕ),!, 
assertz(above tank(ABOVE),problem). 

find above tank:- !. 


search adjacent(COMP NUM,LENGTH):- 
readln(PIPESYS),! moredata(datafile), 
split, string( LENGTH,PIPESYS,COMPNO,SYSTEM), 
compare adjacent(COMP NUM,COMPNO,SYSTEM,LENGTH). 
search adjacent( , ):- !. 


compare adjacent(COMP NUM,COMPNO)REST, ):- 
COMP. NUM = COMPNO,! assertz(adjacent tanks(REST), 
problem). 

compare adjacent(COMP NUM, , LENGTH):- 
search adjacent(COMP  NUM,LENGTH). 


find adj tanks(TANKS):- 
frontchar(TANKS, „REST), find space(REST,O), 
count(LENGTH), 
frontstr(LENGTH,REST,COMPNO,STR1), 
! check_adjacent(COMPNO),find_adj_tanks(STR1). 
find_adj_tanks(_):- !. 


check_adjacent(COMPNO):- str_len(;COMPNO,LEN), 
LAST = LEN- 1, 
frontstr(LAST,COMPNO,_,USAGE),USAGE = "F’, 
assertz(adjacent_fuel_tanks(COMPNO),problem). 


check, adjacent( ):- !. 
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find_space(ADJ_TANK,COUNT):- frontchar(ADJ_TANK,FRT,REST), 
char_int(FRT,VAL),is_space(VAL,COUNT,REST). 


is space(VAL,COUNT,REST):- VAL < 32, INCCOUNT = 
COUNT + 1,!, 
find, space(REST,INCCOUNT),!. 

is space( „COUNT, ):- asserta(count( COUNT ),problem). 


retrieve. string( STRING, NUM):- 
openread(datafile," compartment.txt"), 
readdevice(datafile), 
search, string( STRING, NUM), closefile(datafile), 
readdevice(keyboard), 
which, tanks, in string. 

retrieve, string( ):- 
closefile(datafile),readdevice(keyboard),readchar(. ). 


search, string( STRING, NUM):- 
readIn(DATA),moredata(datafile), 
frontstr(4, DATA,STR_NO,REST), 
compare_string(STRING_NUM,STR_NO,REST), 
search_string(STRING_NUM). 

search_string(_):- !. 


compare_string(STRING_NUM,STRNO,REST):- 
STRING NUM = STRNO, assertz(string_tanks(REST),problem). 
compare_string(_,_,_):- !. 


which, tanks in string:- string tanks(TANKS), 


find string tanks(TANKS) fall. 
which tanks in string:- !. 


find string tanks(TANKS):- ! frontchar(TANKS, „REST), 
check string(REST). 

check string(TANKS):- str len(TANKS,LEN), LAST = LEN- 1, 
frontstr(LAST,TANKS, USAGE) USAGE = "F", 
assertz(string fuel, tanks(TANKS),problem). 


check string(TANKS):- str len(TANKS,LEN), LAST = LEN - 1, 


57 


frontstr(LAST,TANKS,_,USAGE),USAGE = "V", 
assertz(string_void_tanks(TANKS), problem). 
check_string(_):- !. 


retrieve_contains:- 
openread(datafile, "contains.txt"), 
readdevice(datafile), problem tank(COMP NUM), 
str len(COMP NUM,LENGTH), 
search contains(COMP NUM,LENGTH), closefile(datafile), 
readdevice(keyboard). 


retrieve_contains:- 
closefile(datafile),readdevice(keyboard). 

search. contains(COMP NUM,LENGTH):- 
readln(PIPESYS),moredata(datafile), 
split. string(LENGTH,PIPESYS,COMPNO,SYSTEM), 
compare. contains(COMP NUM,COMPNO,SYSTEM), 
search contains(COMP NUM,LENGTH ). 

search contains( , ):- !. 


split. string(LENGTH,PIPESYS,COMPNO,SYSTEM):-!, 
frontstr(LENGTH,PIPESYS, COMPNO,SYSTEM). 


compare contains(COMP NUM,COMPNO,SYSTEM):- 
COMP NUM - COMPNO, 
assertz(contains(COMPNO,SYSTEM),problem). 


moredata(FILE):- not(eof(FILE)). 


add problem(PROBLEM):- problem(LIST), 
check. empty, list(LIST,PROBLEM ). 


check. empty list([" "],PROBLEM):- 
! asserta(problem(PROBLEM),problem). 
check empty. list(LIST,PROBLEM):- 
! append(LIST,PROBLEM,LIST2), 
asserta(problem(LIST2),problem). 


compare_string_to_problem_tank:- string_void_tanks(_), 
compare_string_void_to_contains. 
compare, string to problem tank:-error(" voids in string"). 


compare string void to contains:- string. void tanks( VOID), 
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contains(_,PIPESYS), frontchar(PIPESYS,_,REST), 
fronttoken(REST,_,STR1), 
frontchar(STR1,_,PIPE), VOID = PIPE, 
assert_string_void_in_tank(VOID),fail. 
compare_string_void_to_contains. 


assert_string_void_in_tank(SYMBOL):- !, 
assertz(string void in tank(SYMBOL),problem). 


РЕТТЕ ЖЖЖ ЕЖ ЖЖЖ ЖЕЖ Ж ЖЖ ЖЕЖ Ж ЖЖЖ ЖӘ Ж 


+ * 
à SCREEN.PRO í 
* : * 


КОЕ Z Е ОЕ ЕЕ УРОКЕ Sk ok SR ok ok Sk Sk Ske k ohe sje jene oe oe ke sje ok Sk 3k sje sje ae a R К / 


project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 


PREDICATES 
readkey( KE Y) 
readkeyl(KEY, CHAR,INTEGER) 
readkey2(KEY INTEGER) 
answer(CHAR) 


CLAUSES 
readkey(KE Y ):-readchar(T),answer(T),char_int(T, VAL), 
readkeyl(KEY,T,VAL). 


readkeyl (KEY, ,0):-!,readchar(T),char. int(T, VAL), 
readkey2(KEY,V AL). 

readkeyl(cr, ,13):-!. 

readkey 1 (esc, ,27):-!. 

readkeyl(chr(T),T, ). 


readkey2(up,72):-!. 

readkey2(down,80):-!. 
readkey2(function(N),VAL):-VAL>58,VAL<70,N=VAL-58,!. 
readkey2(otherspec,. ). 
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answer(T):- user data,asserta(first char(T)),write(T). 
answer(_):- !. 


PREDICATES 
maxlen(LIST INTEGER INTEGER) 
listlen(LIST INTEGER) 
writelist INTEGER,INTEGER,LIST) 
index(LIST,INTEGER,S YMBOL) 
scroll_screen(LIST) 
check_end_of_question(LIST) 
check_question_length(LIST,INTEGER) 


ЕЕЕ ЕЕ ЕЖ ЕЖ Ж ЖЕЖ кке жане hs ems a оо 


* * 
5 MENUS Ы 
ж * 


sk sk sk ob sj sk SF sk Sk sk sk Sk sk S Sk Е Е ЕЕЕ Е ЕЕЕ E EA EEE O ОАЕ 


PREDICATES 
menul(ROW,SCRATTR,LIST,ROW,INTEGER,INTEGER) 
menu2(ROW,SCRATTR,LIST,ROW,INTEGER,INTEGER,KEY) 
request(INTEGER INTEGER INTEGER,SYMBOL) 
user key(INTEGER INTEGER, SYMBOL) 
user reguest(INTEGER INTEGER, SYMBOL) 
user input(KEY INTEGER INTEGER INTEGER) 


CLAUSES 
menu(WN,SN,FN,LI,KOL,TXT,LIST,CHOICE):- 
shiftwindow(21), 
maxlen(LIST,O,ANTKOL), 
listlen(LIST,LEN), ANTLI=LEN,LEN>O, 
HH1=ANTLI+2,HH2=ANTKOL+2, 


makewindow(WN,SN,FN,TXT,LLKOL,HH1,HH2), 
HH3=ANTKOL, 
writelist(O,HH3,LIST),cursor(0,0), 
menul(O,SN,LIST,ANTLLANTKOL,CH), 
CHOICE=1+CH, 

removewindow, 

shiftwindow(22), 

shiftwindow(2). 
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menul(LLSN,LIST,MAXLI,ANTKOL,CHOICE):- 
field attr(LI, O ,ANTKOL,112), 


cursor(LI,O), 

readkey( KEY), 

menu2(LI,SN,LIST,MAXLI,ANTKOL,CHOICE,KEY ). 
menu2(_,_,_,_,_,-1,esc):-!. 
menu2(LI,_,_,_,_,CH,function(10)):-!,CH=LI. 
menu2(Li,_,_,_,_,CH,cr):-!,CH=LI. 
menu2(LLSN,LIST,MAXLLANTKOL,CHOICE,up):- 

II. 

field attr(LI, O ANTKOL,SN), 

LI1=L1-1, 


menul(LI1,SN,LIST,MAXLI, ANTKOL,CHOICE). 


menu2(LI,SN,LIST,MAXLI,ANTKOL,CHOICE,down):- 
LI<MAXLI-1,!, 
field attr(LI, O ANTKOL,SN), 
LI1=LI+1, 
menu 1(LI1,SN,LISTJSMAXLI,ANTKOL,CHOICE). 


menu2(LLSN,LISTMAXLLANTKOL,CHOICE, ):- 
menul(LI,SN,LISTMAXLLANTKOL,CHOICE). 


user key(ROW,COL,ANSWER):- 
asserta(user_data),user_request((ROW,COL,ANS WER), 
retract(user data). 

user reguest(ROW,COL,ANSWER):- readkey(KEY), 
user input(KEY,REQUEST,ROW,COL), 
! request(REQUEST,ROW,COL,ANSWER). 


user input(esc,-1, , ):- !. 

user input(cr,l, , ):- !. 

user input(down,1,ROW,COL):- cursor(R,C),R <> ROW, 
NROW =R +1, 


ser char(R,C, CHAR), cursor(NROW,COL),scr char(R,C, CHAR). 
user input(down,1,ROW,COL):-! cursor(ROW,COD). 
user input(up,1, „COL):-cursor(R,C),R < ONROW =R 
- 1,ser char(R,C, CHAR), 
cursor(NROW,COL),scr char(R,C, CHAR). 

user input(up,1,ROW,COL):- ! cursor(ROW COD). 

user input( „0, , ):- !. 
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request( 1o ROW,COL,ANSWER):- user reguest(ROW,COL, ANSWER). 
request(0,_,_,ANSWER):- readIn(ANS),first_char(T), 
frontchar(ANSWER,T,ANS), 

write( ANSWER ),retract(first_char(T)). 
request(-1,_,_,_):- fail. 


CLAUSES 
index([XIl. ],1,X):- !. 
index({_IL],N,X):- N>1,N1=N-1,index(L,N1,X). 


append([],L,L). 
append([AhlAt],B,[AhlC]):-append(At,B,C). 


maxlen({HIT], MAX,MAX1):- 

str_len(H,LEN), 

LEN>MAX,!, 

maxlen(T,LEN,MAX1). 
maxlen([ T] MAX MAX1):-maxlen(T,MAX, MAXI). 
maxlen({],LEN,LEN). 


listlen([],O). 

listlen({_IT],N):- 
listlen(T,X), 
N=X+1. 


writelist( , ,[]). 
writelist( LI, ANTKOL,;[HIT]):-field. str(LLO,ANTKOL,H), 
LI1=LI+1,wnitelist(LI1,ANTKOL,T). 


write screen([]). 

write screen([HIT]):- 
scroll screen([HIT]), 
write screen(T). 


scroll screen([HIT]):- 
cursor( ,COL), 
check question length([H], COL), 
write(H," "),check end, of question(T). 


scroll, screen([HIT]):- 


scroll(1,0),write(H), 
check_end_of_question(T). 
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check question length([Hl , LENGTH):- 
str_len(H,LEN),MAXLEN = LEN + LENGTH, 
MAXLEN < 65. 

check guestion length( , ):- nl. 


check end of question([]). 
check end of guestion([H! ]):- not(isname(H)). 
check end of question( ):- nl. 


position, in. window("problem analysis"):- 
shiftwindow(4),nl. 

position in window(action):- 
shiftwindow(7),clearwindow,nl. 

position_in_window(solution):- shiftwindow(12),nl. 


repeal. repeat:-repeat. 


a C dE AE E A F A Ae E ЖЖЖ ЖЖЖ Ж ЖЖЖ Ж ЖЖЖ ЖЕЖ ЖЖЖ Жж 


ж ж 
ig FACT.PRO б 
ж ж 


ЕТ "ЕЕЕ ЕЕЕ e e e Ske ae k k e e Se SE Se ЖЖЖ ЖЖЖ ЖЖЖ ЖЭК ЖСЖ / 


project "PIPES" 

include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 
CLAUSES 


enter fuel fact(SYS, COMPNOO):- 
assert fact(SYS,COMPNO2) fail. 


assert_fact(SYS,COMPNO2):- 
SYS="FOT" assertz(fuel(COMPNO2),problem). 


assert fact(SYS, COMPNO2):- 
SYS="FOS",assertz(fuel(COMPNO2),problem). 





63 


assert_empty_fact:- asserta(problem(["_"]), problem). 


retract_facts:- retractall(_,problem). 


| Pe leo sok ЖЕЖ SB E ЖЖ жж ж к а ы 


ж ж 
* 

PIPEGRAPH.PRO i 
* * 


ЖЕЖ ЖЖ ЖЖЖ ЕЖ ЖЕ ЖЖ Ж Ж ЖЕТЕ EEE EE I AM 


Include "GrapDecl.PRO" 


CONSTANTS 
intlist = BGI ilist 


Domains 


PointList = intlist* 


Constants 
PaletteList = intlist 


[eee eo ЕЖ Ж ЖЕ ЖЖ ЕЕ Ж ЖЖ ЕЕ EEE EEE EEE а аа ы 


ж ж 
* Local data base * 
* * 


ЖЖЖ ЖЖЖ ЖЕЖ Ж ЖЕ СЕК КЕ КАК ER ER T т U U U 


Database - graphics 
Determ driver(Integer,Integer,String) 
Determ maxcolors(Integer) 
Determ maxX (Integer) 
Determ max Y (Integer) 
Determ graphCoord(Integer Integer) 


ЕЕЕ ЕЕЕ ЖЕЖ Ж КЖЕ ККК ЕК ЕК ЕК ЕЕ ЖЕ ЖЕ ЕЕ ЧЕ ЕЕЕ РЕЖЕ ЕД ЫКЫ ы 


ж ж 
i Return Type of Tank = 
ж ж 


ak K kK k K K K K ade ole ale ak ale de ade ok ade ode ode ae de de ode ole ole ale ale ae ae ade ade ale ale ole ale ale ae ale ade ade ade ole ade ade ade ade ade ade ode ale ole ale ale ade ade ale ale ale ade ade 


PREDICATES 


64 


TankType(STRING,STRING) 


CLAUSES 
TankType("8-119-9-V","8-119-9-V DC VOID"). 
TankType("8-119-7-V","8-119-7-V DC VOID"). 
TankType("8-119-11-F","8-119-11-F FOS"). 
TankType("8-119-7-V","8-119-7-V DC VOID"). 


ОИЕ ЕЕ ЕЕК ОЕК ЗЕ 


ж ж 
ы Return pipes in compartment + 
ж ж 


a od ok ak ak ak ade al ale ade ode ade ode ade ale ade ode ade k k k de ode ol ode ale k ale ade ade ode ale ale ale ade k k ade k k k k k k k k k k k k k k ale ade k k k k k k 


PREDICATES 


Pipes(SYMBOL, INTEGER, INTEGER, INTEGER, INTEGER, INTEGER,SY MB 
OL) 


CLAUSES 
Pipes("8-119-7-V",1,-1,0,-1,0,"RED"). 
Pipes("8-119-7-V",4,-3,0,-3,0,"BLUE"). 
Pipes("8-119-7-V",1,-6,0,-6,0, RED"). 
Pipes("8-119-7-V",0,-8,0,-8,0, ORANGE"), 
Pipes("8-119-7-V",2,-15,0,- 15,0," GREEN"). 
Pipes("8-119-7-V",0,6,0,6,0, ORANGE"). 
Pipes("8-119-7-V",2,11,0,11,-28," GREEN"). 
Pipes("8-119-7-V",2,13,0,13,0, GREEN"). 
Pipes("8-119-7-V",2,15,0,15,0," GREEN"). 
Pipes("8-119-9-V",1,-1,0,- 1,0," RED"). 
Pipes("8-119-9-V",4,-3,0,-3,0, BLUE"). 
Pipes("8-119-9-V",1,-6,0,-6,0,"RED"). 
Pipes("8-119-9-V",0,-8,0,-8,0, ORANGE"). 
Pipes("8-119-9-V",2,-15,0,-15,0," GREEN"). 


Pipes("8-119-9-V",0,6,0,6,0,"ORANGE"). 
Pipes("8-119-9-V",2,13,0,13,-23,"GREEN"). 
Pipes("8-119-9-V",2,15,0,15,0," GREEN"). 
Pipes("8-119-11-F",1,-1,0,- 1,0," RED). 
Pipes("8-119-11-F",4,-3,0,-3,- 10," BLUE"). 
Pipes( 8-119-11-F",1,-6,0,-6,-25," RED"). 
Pipes("8-119-11-F",0,-8,0,-8,-28, ORANGE). 
Pipes(^8-119-11-F",2,-15,0,- 15,0," GREEN). 
Pipes("8-119-11-F",0,6,0,6,-30, ORANGE). 
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Pipes("8-119-11-F",2,15,0,15,0,"GREEN"). 
Pipes("8-119-15-V",2,15,0,15,-26, GREEN"). 


ЕЕЕ Ж ЖЖЖ Ж Ж Ж ЖЖ Ж ЖЖ Жа та Кк желт тат а E 


ж ж 
j Return pipename Ж 
ж ж 


ЖЖЖ ЖЖЖ ЖЖ К ЖЖЖ ЖЖЖ ЖЕ ЕЖ жж жж АШЫ ae) 


РКЕПІСАТЕ5 
Pipename(SYMBOL,SYMBOL) 


CLAUSES 
Pipename("RED","Fuel Oil Transfer’). 
Pipename("BLUE","Fuel Oil Stripping"). 
Pipename(" GREEN ","Ballasting and Main Drain"). 
Pipename( ORANGE","Fuel Oil Service & Recirc"). 
Pipename( MAGENTA ","OverFlow"). 


[E ЖҰЖ ҰЕЖ ЕЕ ЖЕЖ жж а а аа p e U НЫН 


* * 
* Return name of driver ж 
* * 


ЖЖЖ ЖЖ Ж ЖЖЖ kok ok Ж Ж Ж Ж ЖЕЖ ЕЕ ЖЖ а а кета а а 


PREDICATES 
GetDriverName2(Integer,String) 


CLAUSES 
GetDriverName2(0,"Detect"). 
GetDriverName2(1,"CGA"). 
GetDriverName2(2,"MCGA"). 
GetDriverName2(3,"EGA"). 
GetDnverName2(4,"EGA64"). 
GetDriverName2(5,"EGAMono"). 
GetDriverName2(6, Reserved"). 
GetDnverName2(7,"HercMono"). 
GetDnverName2(8,"ATT400"). 
GetDriverName2(9," VGA"). 
GetDriverName2(10,"PC3270"). 


PREDICATES 
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GetMode(Integer,Integer,String) 


CLAUSES 
GetMode(cga,cgaHi,"CGAHi"):-!. 
GetMode(cga,GraphMode,S):- !,format(S,"CGA%",GraphMode). 
GetMode(mcga,mcgaMed," MCGAMed"):- !. 
GetMode(mcga,mcgahi,"MCGAHi"):- !. 
GetMode(mcga,GraphMode,5):- !,format(S," MCGA ^46", GraphMode). 
GetMode(ega,egaLo, EGAL o^):- !. 
GetMode(ega,egaHi,"EGAHi"):- !. 
GetMode(ega64,ega64Lo,"EGA64Lo"):- !. 
GetMode(ega64,ega64H1,"EGA64H1"):- !. 
GetMode(hercMono, ,"HercMonoHi"):- !. 
GetMode(egaMono, ,"EGAMonoHi"):- !. 
GetMode(pc3270,_,"PC3270Hi"):- !. 
GetMode(att400,att400Med," ATT400Med"):- !. 
GetMode(att400,att400Hi,"ATT400H1"):- !. 
GetMode(att400,GraphMode,S):- 

! format(S,"ATT400%",GraphMode). 
GetMode(vga,vgaLo," VGALo"):- !. 
GetMode(vga,vgaMed," VGAMedo"):- !. 
GetMode(vga,vgaHi," VGAHI ):- !. 
GetMode( , ,"UnKnown"):- !. 


C O ae Ne a e e a ok Ae ok se o ohe ok Sk ok e e ЕЖ ЕЖ F F Sk F OF R SR R SR Е 


* * 
+ Return name of font + 
* * 


РЕТТЕ ЕЕЕ ЖЕЖ Ж ЖЕЖ ЖЕЖ ЖЖЖ ЖЖ ЕЖ ЖЖЖ ЖЖЖ Ж / 


PREDICA TES 
GetFontName(Integer, String) 


CLAUSES 
GetFontName(1,"TrixplexFont"). 
GetFontName(2,"SmallFont"). 
GetFontName(3,"SansSerifFont“). 
GetFontName(4,"GothicFont“). 
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ЕЕЕ Ж EE EE oko S Ы 


ж ж 
Ж Implementation of the C loop: forI=Cur, i<Max, 4+) т 
* ж 


Ж ЖЕЖ ode od ode ЖЖК ЖЕЖ Ж koko Ж EA a NE ANN NR A 


PREDICATES 
nondeterm for(Integer,Integer,Integer) 


CLAUSES 
for(Cur, „Cur). 
for(Cur,Max,I):- Cur2=Cur+1, Cur2<Max, for(Cur2,Max I). 


ЕЕЕ ЖЕ ЖЕ ЖЕ ЖЕ ЖЕ ke oko koa oko o do ooo а а ааа а ы 


ж ж 
3 Mode switching * 
ж ж 


*k sk fe sk sk Ж ЖЕ ЖЕ ЖЖЖ ка аа U U SSS) 


PREDICATES 
ToGraphic 
ToText 
KeepColor(integer,integer,integer) 


CLAUSES 
ToGrapHic:- 

/* Detect graphic equipment */ 
DetectGraph(G Driver, G Model), 
KeepColor(G Driver, G Model,G Mode), 
GetDriverName2(G Driver,G Name), 
assert(driver(G Driver,G Mode,G Name)), 
envsymbol("BGIDIR",SetValue), 


InitGraph(G_Driver,G_Mode, _, _,SetValue),!. 


— 


ToText:- 
closegraph(). 


KeepColor(1,_,0). 
KeepColor(_,Mode,Mode). 
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атакка жек ЖЕЖ ЖЖЖ ЖЖЖ ЕЖ ЖЖЖ 


ж ж 
Š Display a status line at the bottom of the screen : 
ж ж 


РЕЗ ЕВЕ 9 Ж ҰАК ЕЕ Ж ЖЕ ЖЕЖ Ж ЖЕЖ ЖЖЖ Ж ЖЖЖ ЖЖЖ ЖЖЖ Ж/ 


PREDICA TES 
StatusLine(String) 


CLAUSES 

StatusLine(Msg):- 
maxX(MaxX), maxY(MaxY), SetViewPort(0,0,MaxX,MaxY, 1), 
maxColors(MaxColors), MaxCol2=MaxColors, 
SetColor(MaxCol2), 
SetBkColor(0), 
SetTextStyle(default_Font, horiz_Dir, 1), 
SetTextJustify(center_Text, top_Text), 
SetLineStyle(solid_Line,O,norm_Width), 
SetFillStyle(empty_Fill,0), 
TextHeight("H" ,Height), Max YH = Max Y-(Height+4), 
Bar(0, Max YH,MaxX,MaxY), 
Rectangle(O,Max YH,MaxX,MaxY), 
MaxX2 = MaxX div 2, Max Y2 = Max Y-(Height+2), 
OutTextX Y(MaxX2,MaxY2, Msg), 
Height5 = Height+5, MaxX1=MaxX-1, MaxY5 = 

Max Y-(Height+5), 

Set ViewPort(1] ,HeightS,MaxX1,MaxY5,1). 


ees tt te ee n o e E ЕЕЕ Е ЗЕР Е ЗЕ ЕЕ ЕЕ eee eee ee eee ek 


ж ж 
| У Pause until the user enters a keystroke T 
| ж ж 


ИИИ ОЕЕО Е ЕРКЕ ОРЕ ЕКО eoe ke ee ook e ok ope Е ЕЕК K K J 


PREDICATES 
Pause 


CLAUSES 
Pause:- 
readChar(_). 





ЕЕЕ ЖЕЖ Ек ж Жек жон а а а ан жа а ы 


ж ж 
2 Draw a solid line around the current viewport m 
* * 


ЖЖЖ sk sk oR ЖА Sk he Sk Sk SR R RR kok kok okk kta pp te a ora ets T nq T O КИЕ a 


PREDICATES 
DrawBorder 


CLAUSES 
DrawBorder:- 

maxColors(MaxColors), MaxCol2 = MaxColors, 

SetColor(MaxCol2), 
SetBkColor(0), 
SetLineStyle(solid Line,O,thick Width), 
GetViewSettings(Left,Top,Right,Bottom, ), 
RL=Right-Left, BT=Bottom-Top, 


Rectangle(0,0,RL,BT). 
ЕЕЕ ЖЖ Ж ЖА Ж ЖЕ ЖЕ ЖЕЖ А ЕКЕ ЖА жж аа C U DLE 
ж ж 
> Establish the main window and set a viewport Ú 
ж ж 


ЖЖЖ ЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖҰЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖҰЖЖЖЖҰ Жж ЖЖ 


PREDICATES 
FullScreen(String) 


CLAUSES 
FullScreen(Header):- 
ClearDevice, 
maxColors(MaxColors), 
SetColor(MaxColors), % Set current color to 
white 
SetBkColor(0), % Set background to black 
TextHeight("H",Height), % Get basic text height 
HeightS=Height+5, Height4=Height+4, 
max X(MaxX), MaxX 1=MaxX-1,MaxX2=MaxX div 2, 
max Y(MaxY), Max Y4=Max Y-(Height4),Max YS5=Max Y-(Height5), 
Set ViewPort(0,0,MaxX,MaxY,1), % Open port to full 
screen 
settextStyle(small font,horiz dir,O), 
SetTextJustify(center text, top. text), 


70 





OutTextX Y(Max X2,2,Header), 
SetViewPort( 0, Height4, MaxX, MaxY4, 1), 
Draw Border, 

SetViewPort(1, Height5, MaxX1,MaxY5, 1). 


ЕРТЕК oro ctor colon kk ope ЖЖЖ ЖЕЖ ЖЖЖ ЖЕЖ ЖЕЖ ЖЖ 


Initialize video and Global flags 


xk ok 2k ok ok ok ok ok ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ole ole ole ole ole ade ade ole ade ade ade ole ode ade ole ole ade ad ade ade ad ade ade aj ale ale ale ale aj ale ale aj ale ale ae ade al ale ole ak 


PREDICATES 
Initialize 


CLAUSES 
Initialize:- 
retractall(_, graphics), 
ToGraphic, 
GetMaxColor(MaxColors), assert(maxcolors(MaxColors)), 
GetMaxX(MaxX), assert(max X( Max X)), 
GetMaxY (Max Y), assertí(max Y (Max Y )). 


AAA ii Ж ЖЖ ЕЖ ЖЖЖ 


Display PIPES system screen 


xk ok ok ok ok ok oke ok ok ade ole ok ok ok ok R OK E OR E OR KOR KR ale ade ole EF OR K ok ok ok ok oe ok ok oko K SE R K R KOR KR OR K ok ok ok ok ole ale R ic ade ade ale 


PREDICATES 
PipesScreen 


CLAUSES 


PipesScreen:- 
FullScreen("Piping Improvement And Planning Expert 
System"), 

Get ViewSettings(Left, Top,Right,Bottom,_), 
SetTextStyle(gothic_FONT,horiz_Dir,5), 
SetTextJustify(center_Text,center_Text), 
maxColors(MaxColor), Color = 1+round(MaxColor / 2.5), 
SetColor(Color), 

H = Bottom - Top, W =Right - Left, 
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W2 = W div 2, H2 = H div 2, 
OutTextX Y(W2,H2,"PI PES"), 
StatusLine("Press any key to Continue"). 


[PER Sk ok sk sk e ke ke je e oke ke k coh ok ok c oe ok job o ok orn oko ERES EAN а т аа 


Display a pattern of random dots on the screen 


ЖЖЖЖЖЖЕЖЕЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖҰЖЖЖЖЖЖЖЕЖЖ ЖЖЖ ЖЖЖ ЖҰЖЖЕЖЖЖЖЖЖЖЕЖЕЖЖЖЖЖЖЖЖЖҰЖ 


DOMAINS 
Pixel =p(Integer,Integer,Integer) 
PixelList = Pixel* 


PREDICA TES 
WriteDot 
PutPixels(Pixellist, Integer Integer, Integer Integer) 
OutPixels(Pixellist) 
DelPIxels(Pixellist) 
Delay(Integer) 


CLAUSES 
WriteDot:- 
GetViewSettings(Left/Top,Right, Bottom, ), 
H = Bottom - Top, 
W = Right - Left, 
maxColors(MaxColors), 
PutPixels(Points,1200,H,W,Maxcolors), 
DelPixels(Points), 
Гог (0,2,1), 
OutPixels(Points), 
[<1, 
DelPixels(Points), 
fail. 
WriteDot:- pause, ToText. 


PutPixels([],0,_._._):- !. 

PutPixels([p(X, Y,Color)|Points],1,H,W,Maxcolors):- 
random(W,X), 
random(H, Y ), 
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random(MaxColors,Color), 
PutPixel(X,Y,Color), 

I2=I- 1,!, 
PutPixels(Points,I2,H,W,Maxcolors). 


OutPixels([p(X, Y,Color)|Points]):-!, 
PutPixel(X, Y Color), 
OutPixels(Points). 

OutPixels(_). 

DelPixels([p(X, Y,_)!Points]):- 

! PutPixel(X, Y ,black),DelPixels(Points). 

DelPixels(_). 

Delay(N):- N > 0,!,N1 = N-1, Delay(N1). 

Delay(0). 


O KOK O ooo ohe ohe ЖЖЖ ЖЕ ЖЖЖ ЖЖ ЖА ЖА ЕЖ ok 


DISPLAY COVER 


ЕЕ i i ЕЕЕ ЕЕЕ ЕЖ ЕЕ ЖЖ ЖЕ ЖЕ ЖЕЖЖЖЖЖ ЖЖ ЖЖ Ж/ 


PREDICATES 
PipeCover 
CLAUSES 
PipeCover:- ! Initialize, % Set system into 
graphic mode 
GraphDefaults, 


PipesScreen, 
WriteDot. 


ЕРТЕ ЕЕЕ Еж ЖЖЖ ЕЕ ЕЖ ЕЕЕ ЖЕЖ ЕЕ ale 3k ak ake k 


DRAW PipeSystems 


ЕЕЕ ЕЖ Ж ЖЕЖ ЖЕЖ ЖЖ ЖЖЖ ЖЕЖ ЕЖ Ж ЖЕЖ ЕЕ ЖЕЖ k k k 


PREDICATES 
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SingleTank(S YMBOL) 
PlotLine(S YMBOL) 
WriteName(S YMBOL,INTEGER,INTEGER) 


CLAUSES 


SingleTank(CompNo):- 

! Initialize, % Set system into 

graphic mode 
GraphDefaults TankType(CompNo,TYPE), 
FullScreen(TYPE), 
StatusLine("Press any Key to 

Continue“), 
setwritemode(0), 


setlinestyle(solid_LINE,0,norm_WIDTH), 
PlotLine(CompNo), 
pause,ToText. 


PlotLine(CompNo):- 


pipes(CompNo,COLOR,XPOS,YPOS,XPOS1,YPOS1,PIPETYPE), 
maxColors(MaxColor), 
LineColor= 

MaxColor-COLOR,setcolor(LineColor), 


GetViewSettings(Left, Top,Right,Bottom,_), 
H=Bottom-Top, W=Right-Left, 
X = W div 2, 
XCORR = X div 16 ,XREAL = XCORR * 


XPOS, 

XPLOT = X + XREAL, 

XREALI = XCORR * XPOSI, 

XPLOTI - X + XREALI, 

YCORR = H div 32 ,YREAL = YCORR * 
YPOS, 


YPLOT = LEFT + YREAL, 
YREALI = YCORR * ҮРОЅІ, 
YPLOTI = Bottom + YREALI, 


line(XPLOT,YPLOT,XPLOT1,YPLOT1),APLOTY=YPLOT1-3, 
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arc(XPLOT1,APLOTY,180,0,4), 
settextstyle(small Font,vert, DIR,O), 
SetTextJustify(top TEXT,top TEXT), 
TX = XPLOT - 
5,TY=Top,WriteName(PIPETYPE,TX,TY), 
fail 


PlotLine(_). 


WriteName(PIPETYPE,TX,TY):- 
!, Pipename(PIPETYPE,PIPENAME), 
outtextxy(TX, TY, PIPENAME). 


WriteName( , , ). 
MEN OU SE E E E E E E E FE e 6 e 3 e e e e ae 3e 3e e ed ol e Rd ře ke he ee 


* * 
B Oil in the Void Tank * 
ж * 


ЕЕ — al e ae ae le le je de a ЖЕ sk SF S Ж ЕЖ Ж ЖЕЖ ЖЕЖ ЖЖЖ ЖЕЖ ЖЖЖ ЖЕ he le 


project "PIPES" 

include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "AnaGdef.PRO" 
PREDICATES 


nondeterm cracks( SYMBOL) 


CLAUSES 


losingfuel(" Y"):- add problem (["losing fuel" ]). 
losingfuel("N"):- ask ques read ans(CRACKS,"cracks in 
tank”) ,cracks(CRACKS). 


cracks(" Y ):- !,add, problem([" cracks" ]). 
cracks("N):- ask. ques read ans(FOURTHDECEK, "fourth deck"), 
! fourthdeck(FOURTHDECK ),!. 


fourthdeck("Y"):- ! add_problem(["4th deck"]),!. 
fourthdeck("N"):- ! indeterminate,!. 


T5 


[EF EEEk kkk kkk kk kkk kk Е ЕЕЕ АСТИ АСЕ Е аа 


ж ж 
Ы Unable to pump Void Tank ih 
ж * 


ЖЖЖ Ж ЕЕ k Ж Ж ЖЖЖ ЖЕ Ж ЕЖ ЖА АЕ кта а а 


Project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 
include "AnaGdef.Pro" 


PREDICATES 


nondeterm pump. leaks(SYMBOL) 
nondeterm valve open(SYMBOL) 
nondeterm debris(S YMBOL) 
nondeterm void pumps(S YMBOL) 
nondeterm clean valve(SYMBOL) 
nondeterm manifold(S YMBOL) 
nondeterm eductor(S YMBOL) 
nondeterm submersible( SYMBOL) 
nondeterm bilge(S YMBOL) 
nondeterm bulkhd 

nondeterm bulkhd_stops(S YMBOL) 
nondeterm close valve(SYMBOL) 
nondeterm bulkhd, stops, close(SYMBOL) 
nondeterm pump. cracks(SYMBOL) 
nondeterm sounding(SYMBOL) 
nondeterm string leaks( SYMBOL) 


CLAUSES 


losing fuel water("Y"):- ask ques read ans(WHICH,"which 
tank losing fuel"), 
asserta(which_tank_losing_fuel(WHICH)), 
ask_ques_read_ans(LEAKS, 
"unable pump losing fuel"),pump. leaks(LEAKS). 
losing, fuel. water("N"):- 
ask gues read ans(VALVE, OPEN,"check valve"), 
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valve_open(VALVE_OPEN). 


pump leaks("Y"):- add problem(|"leaks"]). 
pump. leaks("N"):- losing fuel water("N"). 


valve open("Y"):- ask ques read ans(:MANIFOLD," manifold"), 
manifold(MANIFOLD). 

valve open("N"):- ask gues read ans(VOID PUMP, void 
pump“),void pumps(VOID PUMP). 


debris("Y"):- ask_ques_read_ans(CLEAN, "clean valve"), 
clean_valve(CLEAN). 
debris("N"):- eductor("N"). 


void. pumps("Y"):- add problem(["pumps"]). 
void pumps("N"):- valve open(" Y"). 


clean, valve("Y"):- add. problem(["clean valve" ]). 
clean, valve("N"):- eductor("N ^). 


manifold("Y"):- ask ques, read ans(EDUCTOR,"eductor"), 
educto(EDUCTOR). 

manifold("N"):- ask_ques_read_ans(DEBRIS,"check 
debris“),debris(DEBRIS). 


eductor(" Y "):- add problem(["eductor"]). 
eductor("N"):-ask ques read ans(BILGE,bilge),bilge(BILGE ). 


submersible("Y"):- add. problem(["submersible"]). 
submersible("N"):- ask ques read ans(CRACKS,"cracks in 
tank"),pump_cracks(CRACKS). 


bilge(" Y”):-bulkhd. 
bilge("N"):- ask_ques_read_ans(CLOSE_VALVE,"close valve”), 
close_valve(CLOSE_VALVE). 


bulkhd:- ask_ques_read_ans(BULKHD_STOPS,"bulkhd stops"), 
bulkhd_stops(BULKHD_STOPS). 


bulkhd_stops("Y"):- 
ask gues read ans(SUBMERSIBLE,"submersible“), 
submersible( SUBMERSIBLE). 

bulkhd stops("N"):- ask ques read ans(STOPS CLOSE,"bulkhd 


ШІ 


stops close"), 
bulkhd stops close(STOPS CLOSE). 


close. valve("Y"):- add problem([" valves closed" ]). 
close. valve("N"):- bulkhd. 


bulkhd stops, close("Y "):- add. problem(["bilge"]). 
bulkhd stops close("N"):- bulkhd stops( Y "). 


pump cracks("Y"):- add problem(["cracks“]). 
pump. cracks("N"):- ask, ques. read ans(LEAKS,"leaky pipes"), 
string leaks(LEAKS). 


sounding("Y"):- add. problem([" sounding tube"]). 
sounding("N"):- indeterminate. 


string leaks("Y"):- add problem(["string leaks“]). 


string leaks("N"):- ask_ques_read_ans(SOUNDING, ‘sounding 
tube“),sounding(SOUNDING). 


f eek k k kok kok e oc ee ok Ж ЖЖЖ ЖЕ E ы 


* * 
Ы Void Tank Pumps but Refills with Water t 
ж ж 


ЖЕЖ ЖЖ ЖЖЖ ЖЖ ЖЖЖ ЖЕЖ ЯЗ Ж Кж жж а атан ааа ааа ағ 


project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "AnaGdef.PRO" 


PREDICATES 


cycle sea valve(SYMBOL) 
void, backflow(SYMBOL) 
manifold pressure(SYMBOL) 
void cracks(SYMBOL) 
overboard(SYMBOL) 
void_debris(S YMBOL) 
void_breaks(S YMBOL) 
void_suction(S YMBOL) 
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open_ovbd(S YMBOL) 

holes(S YMBOL) 

close suction(SYMBOL) 
bulkhd stops open(SYMBOL) 
close bulkhd stops( SYMBOL) 
flooding valve(SYMBOL) 
close flood valve(SYMBOL) 
inboard void (SYMBOL) 


CLAUSES 


sea, valve, leak(" Y"):- ask. ques read ans(CYCLE,"cycle sea 
valve"),cycle, sea valve(CYCLE). 

sea valve leak("N"):-ask ques read ans(«BACKFLOW,"void 
backflow"),void backflow(BACKFLOW). 


cycle sea valve("Y"):- add. problem(["cycle sea valve" ]). 
cycle sea valve("N"):- add. problem([" industrial repair" ]). 


void backflow("Y"):- ask ques read ans(:MANIFOLD, "manifold 
pressure“ ),manifold pressure(MANIFOLD). 

void backflow("N"):- ask ques read ans(CRACKS,"cracks in 
tank“), void cracks(CRACKS). 


manifold pressure("Y"):-ask gues read ans(OVERBOARD, 
"overboard“),overboard(OVERBOARD). 

manifold pressure("N"):- ask, ques read ans(DEBRIS, 
"check debris" ),void debris(DEBRIS). 


void cracks(" Y"):- add, problem([" void cracks" ]). 
void cracks("N"):- ask. ques read ans( BREAKS," sounding 
tube"),void breaks(BREAKS). 


overboard(" Y"):- ask ques read ans(SUCTION,"void suction"), 
void, suction( SUCTION). 

overboard("N"):- ask_ques_read_ans(OPEN, "open 
ovbd"),open_ovbd(OPEN). 


void_debris("Y"):- add problem(["debris"]). 
void debris("N"):- ask, ques, read ans(INBOARD,"inboard 
void ),inboard, void(INBOARD). 


inboard, void(" Y"):- add. problem(["inboard"]). 
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inboard_void("N"):- indeterminate. 


void_breaks("Y"):- add_problem([{"breaks"]). 
void, breaks("N"):- ask. ques, read ans(HOLES,"holes"), 
holes(HOLES). 


void, suction("Y"):- ask ques, read. ans(CLOSE,"close 
suction"),close suction( CLOSE). 

void suction("N"):- ask ques. read, ans(OPEN,"bulkhd 
stops open ),bulkhd, stops. open(OPEN). 


open, ovbd(" Y ):- add. problem(["open ovbd" |). 
open, ovbd("N'):- overboard(" Y "). 


holes("Y "):- add. problem(["holes 4th deck"]). 
holes("N"):- indeterminate. 


close_suction("Y"):- void_suction("N"). 
close_suction("N"):- manifold_pressure("N"). 


bulkhd_stops_open("Y"):- ask_ques_read_ans(STOPS, "close 
bulkhd stops"),close_bulkhd_stops(STOPS). 
bulkhd stops open("N"):- manifold. pressure(" N^). 


close bulkhd stops("Y"):- ask ques read ans(FLOODING, 
"flooding valve"),flooding_valve(FLOODING). 
close_bulkhd_stops("N"):- manifold_pressure("N"). 


flooding_valve("Y"):- indeterminate. 
flooding_valve("N"):- ask_ques_read_ans(FLOOD, 
"close flood valve"),close flood valve(FLOOD). 


close flood valve("Y"):- indeterminate. 
close flood valve("N"):- manifold pressure("N"). 


РЕКЕ ж ЖЖ нж та L CC S 


ж ж 
ж Damage Control Void Will Not Flood ы 
ж ж 


ЖЕЖ ЕЖ ЖЖЖ ЕЕ ЖЕЖ ЕЖ ЖЖЖ ЕЖ Ж ЖА ЖЕ ЖаН а ЕБИ 


project "PIPES" 


80 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "AnaGdef.PRO" 


PREDICATES 


oil. hydro, station( SYMBOL) 
clean. station. fltr( SYMBOL) 
air escape open( SYMBOL) 
sel valve bkwrd(SYMBOL) 
damage hydro, line(SYMBOL) 
sel mismarked(SYMBOL) 


CLAUSES 


clear sounding tube("Y"):- ask. ques, read, ans(OIL, "oil hydro 
station"),0il hydro, station(OIL ). 
clear. sounding. tube("N^):- add. problem(["sounding tube" |). 


oil. hydro, station("Y"):- ask ques read ans(FLTR,"clean 
station fltr'),clean station fltr(FLTR ). 
oil. hydro. station("N"):- add, problem(["oil hydro station" ]). 


clean, station, fltr( Y "):- ask ques, read ans(AIR,"air escape 
open ),air. escape open(AIR). 

clean. station, fltr("N"):- add problem(["clean station 
filter"]). 


air_escape_open("Y"):- ask_ques_read_ans(SEL,"sel valve 
bkwrd"),sel_valve_bkwrd(SEL). 
air escape open("N“):- add problem(["air escape open" ]). 


sel valve bkwrd(" Y "):- add. problem(["sel valve bkwrd" ]). 
sel valve bkwrd("N“):- ask ques read ans(DAMAGE," damage 
hydro line“), damage hydro line(€DAMAGE). 
damage hydro line("Y"):- add. problem([" damage hydro line" ]). 
damage hydro line("N"):- ask ques read ans(SEL, 
"sel mismarked"),sel mismarked(SEL.). 


sel mismarked(" Y ):- add. problem(["sel mismarked"]). 
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sel mismarked("N"):- add problem(["correct mismark“]). 


Ж ЖЖ ЖЖ ЖЖЖ ЖЖ ЖЖЖ ЖЖЖ ЖЖ Ж ЖЖ ok о о ж kok ok ЖЖ ЖЖЖ 


ж ж 
+ Void Overflowing + 
* * 


Ж ЖЕЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЕ жж A 


project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "AnaGdef.PRO" 


PREDICATES 


trans pump. run(SYMBOL) 
close ovrfl stop(SYMBOL) 
eductor lit off(SYMBOL) 
another eductor( SYMBOL) 
close edu ovrfl stop(SYMBOL) 
void inb(SYMBOL) 
ballast_manifold(S YMBOL) 
strip dischrg(SYMBOL) 
close FM valve( SYMBOL) 
close. strip( SYMBOL) 

close sea, fld valve(SYMBOL) 
close valve ovrfl stop( SYMBOL) 
void inb contm(SYMBOL) 
dischr_contm(S YMBOL) 
cls_strip_ovrfl_valve(S YMBOL) 
jp5. trans(SYMBOL) 

close jp5( SYMBOL) 

diesel trans(SYMBOL) 


CLAUSES 


trans pump run("fuel"):- losingfuel(" Y"). 
trans pump run("water“):- ask ques, read ans(LIT,"eductor lit 
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off"),eductor lit off(LIT). 


БЕГЕН ЖЖЖ ЖЖЖ ЖЕ ЕЖ 


ж ж 
% Overflowing Water > 
ж ж 


ИИО Ж ЕЕЕ ЖЕЖ ЖЕ ЖЕЖ ЖЖ ЖЕЖ ЖЖ Ж Ж/ 


eductor_lit_off("Y"):- ask_ques_read_ans(CLOSE, ‘close 
edu ovrfl stop"),close_edu_ovrfl_stop(CLOSE). 
eductor_lit_off("N"):- ask_ques_read_ans(EDUCTOR, "another 
eductor"),another eductor(EDUCTOR). 


another. eductor(" Y "):- eductor. lit off("Y"). 
another eductor("N"):- ask gues read. ans(INBD,"void inb"), 
void inb(INBD). 


close edu ovrfl stop(" Y "):- add, problem(["close eductor"]). 
close edu, ovrfl stop("N"):- ask, ques read ans(BALLAST, 
"ballast manifold" ),ballast manifold(BBALLAST). 


void inb("Y"):- ask ques read ans(STRIP,"strip dischrg ), 
strip dischrg( STRIP). 
void inb("N"):- close edu ovrfl stop(" Y") 


ballast manifold("Y"):- ask ques read ans(CLOSE,"close sea 
fid valve" ),close. sea, fld. valve(CLOSE). 

ballast manifold("N"):- ask ques read ans(CLOSE,"close FM 
valve'),close FM valve(CLOS:). 


strip dischrg("Y"):- ask_ques_read_ans(CLOSE, "close strip"), 
close_stnp(CLOSE). 
strip_dischrg("N"):- close_edu_ovrfl_stop(" Y”). 


close FM. valve("Y"):- add_problem(["close FM valve”]). 
close_FM_valve("N"):- 


close_strip("Y"):- close_edu_ovrfl_stop("Y"). 
close_strip("N”):- add_problem(["close strip"]). 


close sea fld valve("Y"):- 


close sea fld valve("N"):- ask gues read ans(CLOSE, 
"close valve ovrfl stop“),close valve ovrfl stop(CLOSE). 
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close_valve_ovrfl_stop(" Y"):- add problem(["close ovrfl 


stop" ]). 
close valve ovrfl stop("N"):- indeterminate. 


JPEE E E sese e ke ke ke e pe espe A Ae ОЕ k E E A I A I A E 


* * 
$ Overflowing Fuel * 
ж ж 


ЖЖЖ ЖЕЖ Ж Ж Ж ЕЕЕ КЕ Ен ааа матта UU UU D Я 


close ovrfl stop("Y"):- add. problem(["close ovrfl stop"]). 
close ovrfl stop("N"):- ask gues read ans(INBD,"void inb 
contm"),void inb contm(INBD). 


void inb contm("Y"):- ask ques read ans(DIS,"dischr contm"), 
dischr. contm(DIS). 

void inb contm("N"):- ask. ques read ans(JP5,"jp5 trans"), 
Jp5. trans(JP5). 


dischr contm("Y"):- ask gues read ans(CLOSE,"cls strip ovrfl 
valve"),cls strip ovrfl valve(CLOSE). 
dischr. contm("N"):- void inb contm("N"). 


cls strip ovrfl valve("Y"):- add problem(["close strip 
ovrfl" ]). 
cls. strip. ovrfl valve("N"):- void inb contm("N"). 


jp5. trans("Y"):- ask ques read ans(CLOSE,"close jp5"), 
close. jp5(CLOSE). 

jp5_trans("N"):- ask, ques. read, ans(DIESEL, "diesel trans"), 
diesel. trans(DIESEL). 


close jp5("Y "):- add. problem(["close JP5"]). 
close, jp5(0N^):- jp5. trans("N"). 


diesel trans("Y"):- add problem([" diesel trans" ]). 
diesel trans("N"):- ballast manifold("N"). 


РЕКЕ ЕЖЕН ЕЖ ЕЕ Ж ЕЕ жж le he Ree A O БЫ 


ж ж 
* Water In the Fuel Oil Service/ Fuel Oil Storage Tank T 
* * 


ЖЖЖ А ЖЖЖ ЖЖ ЖЕСЕ A Жаа ата тақат аа ааа 
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project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 
include "AnaGdef.PRO" 


PREDICATES 
nondeterm fuel paste test(S YMBOL) 
nondeterm known, tank(INTEGER) 
nondeterm outbd_fuel(S YMBOL) 
nondeterm void_suction(S YMBOL) 
nondeterm backflow(S YMBOL) 
nondeterm fuel_pipes(S YMBOL) 
nondeterm fuel inboard(SYMBOL) 
nondeterm water(SYMBOL) 
nondeterm fuel leaks(SYMBOL) 
nondeterm pumps_refills_fuel(S YMBOL) 
nondeterm fuel_cracks(S YMBOL) 
nondeterm x_fer(S YMBOL) 
nondeterm stripp. paste( SYMBOL) 
nondeterm stripp blockage( SYMBOL) 
nondeterm fuel stripp open( SYMBOL) 
nondeterm water. above(SYMBOL) 
nondeterm skin of ship( SYMBOL) 
nondeterm heavy seas( SYMBOL) 


CLAUSES 


paste test(" Y "):- filled. from(TANK), 
str len(TANK,LEN),known tank(LEN). 

paste, test("N"):- ask. ques read ans(OTBD "fuel outbd 
fuel"),outbd_fuel(OTBD). 


known, tank(0):- fot. paste. test("N"). 
known, tank( ):- ask. ques. read. ans(:WATER, PASTE, "fuel 
waterpaste“),!,fuel paste test WATER PASTE),. 


fuel paste test("Y"):-filled from(TANK), 
asserta(problem tank(TANK),problem), 
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fot_paste("Y"). 
fuel_paste_test("N"):- paste test("N"). 


outbd fuel("Y"):- ask, ques read ans(VOID SUCTION, 
"fuel void suction" ),void. suction VOID. SUCTION ). 

outbd fuel("N"):- ask gues read ans(BACKFLOW fuel 
backflow"),backflow(B ACKFLOW). 


void_suction("Y"):- add problem(["void suction“]). 
void, suction("N"):- position, in. window("action"), 
clearwindow,backflow("N"). 


backflow(" Y "):- ask. ques read ans(CK PIPES, 
"fuel check pipes“) fuel pipes(CK PIPES). 

backflow("N"):- ask gues read ans(FUEL,"fuel fuel 
inboard" ),fuel_inboard(FUEL). 


fuel pipes(" Y "):- add, problem([" void suction" ]). 
fuel pipes("N^):- backflow("N ^). 


fuel inboard(" Y "):- ask. ques read ans(LEAKS, 
"fuel pipes inboard"),fuel_leaks(LEAKS). 
fuel_inboard("N"):- ask ques read ans(WATER, "fuel 
water”), water(WATER). 


water(" Y"):- ask_ques_read_ans(REFILLS, 
“pumps refills fuel”),pumps_refills_fuel(REFILLS). 
water("N"):- ask_ques_read_ans(XFER, "fuel trans 
conn’ ),x_fer(XFER). 


fuel_leaks(" Y"):- add_problem([{"leaks"]). 
fuel leaks("N"):- ask ques read, ans(CRACKS,"fuel cracks"), 
fuel cracks(CRACKS). 


pumps refills fuel("Y"):- ask ques read ans(LEAKS,"fuel 
pipes inboard“),fuel leaks(LEAKS). 
pumps. refills fuel("N"):- water("N"). 


fuel cracks(" Y ):- add, problem(("cracks" ]). 
fuel cracks("N"):- water("N"). 


x_fer("Y"):- add_problem({"x-fer"]). 
x fer("N"):- ask gues read ans(STRIPP,"stripp paste"), 
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stripp_paste(STRIPP). 


stripp_paste("Y"):- ask_ques_read_ans(BLOCK, ‘stripp 
blockage"),stripp_blockage(BLOCK). 

stripp_paste(""N"):- ask_ques_read_ans(VALVE, "fuel stripp 
open’ ),fuel_stripp_open(VALVE). 


stripp_blockage("Y"):- add problem(["stripp blockage“]). 
stripp. blockage("N"):- ask ques, read ans(WATER, 
"water above"),water above(W ATER). 


fuel stripp open("Y"):- add, problem(["stripp open" ]). 
fuel stripp. open("N"):- ask ques read ans(WATER, 
“water above ),water_above(WATER). 


water_above("Y"):- ask_ques_read_ans(SKIN, ‘skin of 
ship"),skin_of_ship(SKIN). 

water. above("N"):-ask ques read ans(HEAVY SEAS,"heavy 
seas“), heavy seas(HEAVY SEAS). 


skin. of ship("Y "):- add, problem(["skin of ship"]). 
skin, of ship N^):- indeterminate. 


heavy. seas(" Y "):-add, problem([" heavy seas" ]). 
heavy, seas("N^):- indeterminate. 


РЕКЕТІ ЖЕЖ КЕ ЖЕ ЕЕ Ж ЕЖ Ж Ж ЖЕ ЖЖ Ж Ж 


ж ж 
É Water in the Fuel Oil Storage Tank n 
ж ж 


РЕТТЕН r bo Е ЖЕ ЖА ЕЖ ЖЕЖ ЖЖ 3 ok / 


project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "AnaGdef.PRO" 
include "PipeGdbase.PRO" 


PREDICATES 


nondeterm fot outbd fuel(SYMBOL) 
nondeterm fot void sucton(SYMBOL) 
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nondeterm fot_pipes(S YMBOL) 
nondeterm fot_inboard(S YMBOL) 
nondeterm fot water(SYMBOL) 
nondeterm fot pumps. refills fuel(SYMBOL) 
nondeterm fot cracks(SYMBOL) 
nondeterm fot water above(SYMBOL) 
nondeterm fot skin of ship(SYMBOL) 
nondeterm fot backflow(SYMBOL) 
nondeterm fot leaks(SYMBOL) 
nondeterm fot stripp paste( SYMBOL) 
nondeterm fot stripp. blockage(SYMBOL) 
nondeterm fot stripp. open( SYMBOL) 
nondeterm fot heavy seas(SYMBOL) 


CLAUSES 


fot paste test("Y"):- filled from(TANK),!, 
asserta(problem tank(TANK), problem), 
ask gues read ans(WATER PASTE, fot waterpaste“), 
fot paste( WATER PASTE). 

fot paste test("N"):- ask ques read ans(OTBD, fuel outbd 
fuel”) fot_outbd_fuel(OTBD). 

fot_paste(" Y"):- ask gues read ans(FILLED, fot filled 
from"),! assert_filled(FILLED). 

fot_paste("N"):- fot_paste_test("N"). 


fot outbd fuel("Y"):- ask gues read ans(VOID SUCTION, 
"fuel void suction“) fot void suction(VOID SUCTION). 

fot outbd fuel("N"):- ask gues read ans(BACKFLOW "fot 
backflow"), fot backflow(BACKFLOW). 


fot void sucton("Y"):- add problem(["void suction"]). 
fot void, suction("N"):- position in window("action"), 
clearwindow,fot backflow("N"). 


fot backflow("Y"):- ask, ques read, ans(CK  PIPES, 
"fot check pipes" ),fot pipes(CK, PIPES). 

fot. backflow("N"):- ask, ques read, ans(FUEL, "fuel fuel 
inboard"),fot_inboard(FUEL). 


fot_pipes(" Y"):- add_problem(["void suction"]). 
fot_pipes("N"):- fot_backflow("N"). 
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fot_inboard("Y"):- ask gues read ans(LEAKS, 
"fuel pipes inboard"),fot_leaks(LEAKS). 

fot. inboard("N"):- ask. ques, read ans(:WATER, "fuel 
water" ),fot water WATER). 


fot water("Y"):- ask gues read ans(REFILLS, 
“pumps refills fuel"),fot_pumps_refills_fuel(REFILLS). 
fot. water("N"):- ask, ques. read ans(STRIPP,"fot stripp 
paste" ),fot stripp paste(STRIPP). 


fot. leaks(" Y"):- add. problem(["fot leaks" ]). 
fot leaks("N"):- ask. ques read ans(CRACKS,"fuel cracks"), 
fot_cracks(CRACKS). 


fot pumps refills fuel("Y"):- ask ques read ans(LEAKS, 
“fuel pipes inboard"),fot_leaks(LEAKS). 
fot pumps refills fuel("N"):- fot. water("N"). 


fot cracks("Y "):- add problem(["cracks" |). 
fot_cracks("N"):- fot water("N“). 


fot stripp paste(" Y "):- ask, ques. read ans(BLOCK, "fot 
stripp blockage"),fot stripp blockage(BLOCK). 

fot stripp paste(N"):- ask gues read ans(VALVE,"fot 
stripp open“),fot stripp open(VALVE). 


fot stripp blockage("Y"):- add. problem(["fot stripp 
blockage" ]). 

fot. stripp. blockage("N"):- ask ques read ans(WATER, 
"water above"),fot water above( WATER). 


fot stripp open("Y"):- add. problem(["stripp open"]). 
fot stripp open("N"):- ask ques read ans(WATER, 
"water above“),fot water above( WATER). 


fot water above("Y"):- ask gues read ans(SKIN,"skin of 
ship ),fot skin of ship(SKIN). 
fot water. above("N"):-ask. ques read ans(HEAVY SEAS,"fot 
heavy seas“),fot heavy seas(HEAVY SEAS). 


fot skin of ship("Y"):- add. problem(["skin of ship" ]). 
fot skin, of ship(  N^):- indeterminate. 
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fot heavy seas("Y"):-add problem(["heavy seas ]). 
fot heavy. seas("N"):- indeterminate. 


ЕЕЕ Ж ЖЕ ЖА Жа ЕЗ ЕЗ Ж ЕЖ кета ЖР Ж ы 


ж ж 
x Fuel Oil Service Tank Overflowing т 
* * 


ke k kok kok ЖЖЖ Ж ЖЖЖ ЖЖЖ Ж Ж ЖЖ ЖЖ ЖЖ ЖЖЖ ЖЖЖЖ / 


project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 
include "AnaGdef. PRO" 


PREDICATES 
pump_overflow(INTEGER) 
fill_valve_closed(S YMBOL) 
strip_sys_used(S YMBOL) 
eductor_strip(S YMBOL) 
trs_valve_ovrfl(S YMBOL) 
recric_fostank(S YMBOL) 
ovbd_dis_open(S YMBOL) 
strip_lineup(S YMBOL) 
ovbd_ovrfl_stop(S YMBOL) 
close_recirc(S YMBOL) 
fill x fer(SYMBOL) 
correct ovrfl stop( SYMBOL) 
strip suct valve(SYMBOL) 
serv suct valve(SYMBOL) 
recirc valve(SYMBOL) 
pipe leak(SYMBOL) 


CLAUSES 
fos pump run refuel("Y"):- ask ques. read ans(PUMP,"pump 
overflow"), pump overflow(PUMP). 
fos pump run refuel("N"):- ask ques. read ans(CLOSE, "fill 
valve closed"),fill valve closed( CLOSE). 


pump. overflow("Y"):- pump run refuel("N"). 
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pump. overflow("N"):- ask ques read ans(SYS,"strip sys 
used" ),strip sys used(SYS). 


fill valve. closed("Y"):- pump overflow("N"). 
fill valve closed("N"):- ask gues read ans(TRANS, 'trs 
valve ovrfl'),trs valve ovrfl(TRANS). 


strip sys used("Y"):- ask ques read ans(EDUCTOR, 'eductor 
strip ),eductor  strip(EDUCTOR ). 

strip sys used("N"):- ask ques read ans(RECIRC,"recirc 
fostank“) recirc fostank(RECIRC). 


eductor strip("Y"):- ask gues read ans(OVBD,"ovbd dis 
open“),ovbd dis open(OVBD). 

eductor. strip "N"):- ask. ques, read ans(LINEUP,"strip 
lineup"),strip. lineup(LINEUP). 


trs valve ovrfl("Y"):- add problem(["trs valve ovrtl"]). 
trs valve ovr("N"):- fill valve closed(" Y"). 


recirc_fostank(" Y"):- ask_ques_read_ans(STOP, "close 
recirc’ ),close_recirc(STOPS). 
recirc_fostank("N"):- ask_ques_read_ans(FILL, "fill 
x fer") fill x fer(FILL). 


ovbd dis open(" Y^ ):- strip sys used(("N"). 
ovbd dis open("N"):- ask. ques, read, ans( STOP, "ovbd ovrfl 
stop ),ovbd ovrfl stop( STOP). 


strip lineup("Y"):- strip sys used("N"). 
strip lineup("N"):- ask, ques, read ans(STOP, "correct ovrfl 
stop ),correct ovrfl stop(STOP). 


ovbd ovrfl stop("Y"):- add. problem(["ovbd ovrfl stop"]). 
ovbd ovrfl. stop( "N^):- strip sys used( N^). 


close recirc(" Y "):- add. problem(["close recirc" ]). 
close_recirc("N"):- recirc_fostank("N"). 


fill x fer("Y"):- ask ques. read, ans(STRIPP,'strip suct 


valve" ),strip suct valve(STRIPP). 
fill x fer("N"):- add. problem(["fill x-fer”]). 
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correct_ovrfl_stop("Y"):- add_problem(["correct ovrf 


stop" ]). 
correct, ovrfl stop("N^):-strip. sys used(" N^). 


strip suct valve("Y"):- ask ques read ans(SERV,"serv suct 
valve"),serv_suct_valve(SERV). 
strip suct valve("N"):- add problem(["strip suct valve“]). 


serv suct valve("Y"):- ask gues read ans(RECIRC,"recirc 
valve"),recirc. valve(RECIRC). 
serv suct, valve("N"):- add, problem(["serv suct valve" ]). 


recirc, valve("Y"):- ask gues read ans(LEAK, pipe 
leak"),pipe_leak(LEAK). 

recirc_valve("N"):- add_problem(["recire valve"]). 

pipe leak("Y"):- add. problem(["pipe leak" |). 

pipe. leak("N^):- indeterminate. 


ЕЕЕ кт as 


ж ж 
» Fuel Oil Service Tank Losing Fuel * 
* ж 


ЖЖЖ Ж ЕЕЕ ЕЕ ЖЕ ЖЕ ЕЕЕ жж Жж он т та а а ы 


project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "AnaGdef. PRO" 


PREDICATES 


pump pipe leaks(SYMBOL) 
fill debris/GYMBOL) 

refill(S YMBOL) 

inspect leaks(SYMBOL) 

open sound tube(SYMBOL) 
fos los fuel cracks(SYMBOL) 


CLAUSES 
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voids oil("Y"):- ask, ques read ans(VOID,"which void has 
oil"),retract facts,assert(problem tank(VOID), problem), 
retrieve_contains,add_problem(["oil in void |), 


contains fuel fuel ),ask gues read ans(LOSINGFUEL, losing 
fuel"),! losingfuel(LOSINGFUEL). 


voids oil("N"):- add problem(["fos losing fuel"]), 
ask ques read ans(LEAKS,"pump pipe 
leaks"),pump. pipe leaks(LEAKS). 


pump. pipe leaks("Y"):- ask, ques read. ans(FILL, "fill 
debris" ),fill_debris(FILL). 
pump. pipe. leaks("N"):- add, problem(["leaks" ]). 


fill. debris("Y"):- ask ques. read ans(REFILL, refill"), 
refill(REFILL). 
fill debris("N"):- add. problem(["refills"]). 


refill("Y"):- ask ques read ans(LEAKS,"inspect leaks"), 
inspect leaks(LEAKS). 

refill("N"):- ask. ques. read ans(CRACKS,"fos los fuel 
cracks" ),fos los fuel cracks(CRACKS). 


inspect leaks("Y"):- add problem(["leaks"]). 
inspect. leaks("N^):- refill("N"). 


fos los, fuel cracks(" Y ):- add, problem(["cracks"]). 
fos los fuel cracks("N"):- ask, ques, read ans(OPEN,"open 
sound tube“),open sound tube(OPEN). 


open sound tube("Y"):- indeterminate. 
open, sound tube("N"):- add, problem(["sound tube" ]), 


MENU ET $ o o o o e A SEE AE EE E E KORR ЖЖЖ ЖЕЖ ЕЖ ose R R RO R 


г ж 
j) Fuel Oil Storage Tank Overflowing * 
j ж 


ИИИ t ОРОКЕ ВОВ ЖЖЖ ЖЕЖ ЖЖЖ ЖЖЖ / 


project "PIPES" 
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include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 
include "AnaGdef.PRO" 


PREDICATES 
pump_overflow(INTEGER) 
fill valve closed(SYMBOL) 
strip sys used SYMBOL) 
eductor_strip(S YMBOL) 
trs_valve_ovrfl(S YMBOL) 
ovbd dis open(SYMBOL) 
strip_lineup(S YMBOL) 
ovbd_ovrfl_stop(S YMBOL) 
fill_x_fer(S YMBOL) 
correct_ovrfl_stop(S YMBOL) 
strip suct valve(SYMBOL) 
pipe leak(SYMBOL) 


CLAUSES 


fot pump run refuel("Y"):- ask gues read ans(PUMP, fot 
pump overflow"),pump_overflow(PUMP). 

fot pump. run refuel("N"):- ask gues read ans(CLOSE,"fot 
fill valve closed" ),fill valve. closed( CLOSE). 


pump. overflow("Y"):- pump run refuel("N^). 
pump. overflow("N"):- ask, ques, read, ans(SYS,"fot strip sys 
used" ),strip sys used(SYS). 


fill valve closed("Y"):- pump. overflow("N^). 
fill valve. closed("N"):- ask, ques read ans(TRANS,"for trs 
valve ovrfl'),trs valve ovrfl( TRANS). 


strip. sys. used("Y"):- ask, ques read ans(EDUCTOR, fot 
eductor strip ),eductor. stip(EDUCTOR). 

strip sys used("N"):- ask ques read ans(FILL,"fot fill 
x_fer"),fill_x_fer(FILL). 


eductor strip("Y"):- ask gues read ans(OVBD,"fot ovbd dis 
open"),ovbd dis open(OVBD). 

eductor. strip "N"):- ask gues read ans(LINEUP,"fot strip 
lineup’ ),strip_lineup(LINEUP). 
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trs. valve ovrfl(" Y"):- add. problem(["trs valve ovríl"]). 
trs valve ovr("N"):- fill valve closed(" Y"). 


ovbd dis open("Y"):- strip sys used(("N"). 
ovbd dis open("N"“):- ask ques read, ans(STOP,"fot ovbd 
ovrfl stop"),ovbd_ovrfl_stop(STOP). 


strip lineup(" Y"):- strip sys used(" N^). 
strip. lineup("N"):- ask gues read ans(STOP,"fot correct 
ovrfl stop"),correct_ovrfl_stop(STOP). 


ovbd ovrfl stop("Y"):- add problem(["ovbd ovrfl stop"]). 
ovbd ovrfl stop(N"):- strip sys used("N"). 


fill x fer("Y"):- ask. ques read. ans(STRIPP,"fot strip suct 
valve" ),strip suct. valve(STRIPP). 
fill x. fer("N"):- add problem(["fill x-fer"]). 


correct. ovrfl stop(" Y ):- add. problem(["correct ovrf 


stop ]). 
correct ovrfl stop(N"):-strip sys used("N"). 


strip suct valve("Y"):- ask gues read ans(LEAK,"fot pipes 
leak"),pipes_leak(LEAK). 

strip_suct_valve("N"):- add_problem(["strip suct valve"]). 

pipe_leak("Y"):- add_problem(["pipe leak"}). 

pipe_leak("N"):- indeterminate. 


a G CODE erento E ee ee eee eee ie lee oe ee Ae eo ke ok ok ohe ok o ohe ae ok k k kk k k 


ж ж 
Í Large Contaminated Tank Overflowing b 
ж ж 


a AE a e E e Se Se e de e e a ЖЕКЕ НОЕ КОЕ ККЕ Ж 


project "PIPES" 


include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 
include "AnaGdef.PRO" 
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PREDICATES 
cont pump. overflow(INTEGER) 
cont ovrfl closed (SYMBOL) 
other sys used(SYMBOL) 
cont ovbd open( SYMBOL) 
other dischrg( SYMBOL) 
other ovrfl closed (SYMBOL) 
mmr eductor(SYMBOL) 
main drain SYMBOL) 
gate off stem(SYMBOL) 
cont blkhd stop( SYMBOL) 
fot pressure(SYMBOL) 
close trans fuellSYMBOL) 


CLAUSES 


mmr. strip pump( Y ):- ask ques read, ans(PUMP,"cont pump 
overflow" ),cont. pump. overflow(PUMP). 

mmr strip pump("N^):- ask ques read ans(OP,"other sys 
sed"),other sys used(OP). 


cont pump overflow("Y ):- add, problem(["pump overflow"]). 
cont pump overflow("N"):- mmr. strip pump("N^). 


cont, ovrfl closed(" Y"):- add, problem(["overflow stops 
closed" ]). 
cont, ovrfl closed("N'):- other. sys used("N"). 


other sys used("Y"):- ask ques read ans(CLOSE,"cont ovrfl 
closed"),cont_ovrfl_closed(CLOSE). 

other sys used("N"):- ask, ques read ans(DISCH,"other 
dischrg"),other_dischrg(DISCH). 


other_dischrg("Y"):- ask_ques_read_ans(OVBD, "other ovrfl 
closed”),other_ovrfl_closed(OVBD). 

other_dischrg("N"):- ask_ques_read_ans(EDUCTOR,"mmr 
eductor”),mmr_educto(EDUCTOR ). 


other_ovrfl_closed("Y"):- add_problem(["other ovrfl 


closed"]). 
other_ovrfl_closed("N"):- other_dischrg("N"). 
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mmr. eductor(" Y"):- ask_ques_read_ans(EDUCTOR,"cont ovrbd 
open“),cont ovrbd open(EDUCTOR). 

mmr_eductor("N"):- ask gues read ans(MAIN,"main drain“), 
main drain (MAIN). 


cont ovbd open("Y"):- ask (диев read ans(STEM "gate off 
stem"),gate off stem(STEM). 
cont ovbd open("N"):- add. problem(["ovbd open" ]). 


main, drain("Y"):- ask. ques, read ans(PRESSURE;, "fot 
pressure" ),fot pressure(PRESSURE). 

main drain("N"):- ask. ques. read, ans(STOP,"cont bulkhd 
stop ),cont. bulkhd, stop( STOP). 


gate off stem("Y"):- add, problem(["gate off stem" ]). 
gate off stem("N"):- mmr. eductor(" N^). 


cont, bulkhd stop(" Y"):- add. problem(["bulkhd stop" ]). 
cont, bulkhd, stop("N^):- main, drain(" Y"). 


fot pressure(" Y "):- ask ques. read, ans(CLOSE, "close trans 
fuel"),close trans. fuel( CLOSE). 
fot pressure("N"):- indeterminate. 


close. trans, fuel("Y"):- add problem([" trans pressure" ]). 
close trans, fuel("N"):-indeterminate. 


dede 


ж ж 
т QUESTION ж 
* Contains the questions for the PIPES system. z 
ж ж 


DELL ` Y k + + s °F 3k SF 3 šk sk k fe PF ok ae el oe ře oje SF SF ЕЕ Ж ЕЖ ЖЖЖ ЖЕЖ ЖЖЖ e al aj al of Ж/ 


project "PIPES" 

include "PipeGdoms.PRO" 
include "GlobDef.PRO" 
include "PipeGdbase.PRO" 


CLAUSES 


2] 


жж ж Ж Ж Ж ЖЖ ЖЖЖ ЖЖ ЖЖЖ ЖЖ ЖЖ ЖЖ ЖЕЖ ЖЖЖ ЖЖЖ Ж ЖЖЖ 


* The problem tank number is a mandatory piece of 5 
* information and is entered in the following format: E 
T 8-119-9-Ү * 
* * 


ЖЖЖ ЖЖЖЖЖЖЖЖЖЕЖЖ Ж ЖЖЖЖЖЖЖЖ k k k k k k k k k k k k k k k K k k k k k k k k Fk k k k k k k k K k k 


question("tankno”):- 
position_in_window("problem analysis"), 
write screen([" What is the compartment number of the 
problem tank?" |). 


ЕЕЕ ЕЖ ЖЕЖ E Sk k ok Sk k k ko OK жа жаа а а C D S S 


* The tank number is required to locate the tank to be 5 
* drawn and is entered in the following format: ш 
= 8-119-11-F 
ж ж 


ЖЖЖ ЖЕ ЖЕ Кк а Жар тк кке к теке тата 


question("single tank"):- nl, 
write screen(["Enter compartment number 
to be drawn: "]). 


[eek ee ke ke ke ke sk ke eee ke ЖЖЖ ж Ет тет қалжа LL DS 


x Water in the Fuel Oil Storage Tank x 


ЖЖЖ Ж ЖЖЖ ЖЖ Ж e e EE: ОЕ ERE Е енти о 


question( "fot filled from"):- 
position, in. window( action"), 
problem tank(COMP NUM),position in window("problem 
analysis“), 
write screen([" Which fuel oil storage tank was", 
“fuel oil storage tank", COMP_NUM, "filled from?" ,"(press 
enter 1f unknown)" ]). 


question("fot backflow"):- 
otbd void(QUES VAR),position in window("action"), 
write screen([" As a precaution to eliminate D.C. Void", 
QUES VAR, 


“as a possible source”, of contamination, pump", 


"It to zero and leave empty","until actual source of", 


"uM 


"contamination to","Fuel Oil Storage tank is", 
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"determined. ”, Monitor level of” QUES_VAR,"to see if", 
"its level rises from fuel","leakage back through", 

"void suction tail pipe. ","Alternative is to open,“, 

"gas free and visually" "inspect suction tail pipe in", 
QUES_VAR]),position_in_window("problem analysis"), 
write screen([" Does oil flow back into the void?" |). 
question( "fot check pipes"), QUES. VAR), 
position, in, window("action"), 

write screen(["The tailpipe in D.C. void", QUES. VAR, 
"Is backflowing fuel,pump down Fuel Oil storage”, 

"tank and check the 2 1/2 inch copper-nickle void", 
"suction line passing through the service tank." |), 
position, in window(" problem analysis"), 

write screen([" Are any pipes leaking?" ]). 


guestion("fot void suction"):- problem. tank(TANK), 
position in. window("action"), 
write screen(["Pump down fuel oil storage 
tank", TANK,"and inspect 2 1/2", 
"inch void suction line in storage tank for cracked or 
leaking couplings" ]), 
position, in. window(" problem analysis"), 
write screen([" Are there any leaks in the 2 1/2 inch 
void suction line?" ]). 


question("fot heavy seas" ):- position in window("action"), 
position in window( problem analysis "),clearwindow,nl, 
write screen(["Has the ship been operating recently in 
heavy seas, which", 
"could have backflowed through the overflow piping into 
the service tank?" ]). 


question("fot stripp open" ):- 
problem tank(TANK),position in window("action“), 
write. screen(["Disassemble the Fuel Oil Storage 
Ballast/","stripping valve for", TANK,". 
Inspect for debris under the seat,“, 
"disc off stem, and correct, free operation"]), 
position in window(" problem analysis"), 
write screen(["Was the ballast/ stripping valve damaged 
or inoperative?"]). 


guestion( fot stripp paste“):- 
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problem_tank(TANK),position_in_window("action"),nl, 
write_screen(["Strip Fuel oil storage tank", TANK, 

"and perform water paste test"]), 
position_in_window("problem 

analysis"),write screen([" Was", TANK, 

"successfully stripped of water?" ]). 


question("fot stripp blockage"):- 
problem, tank(TANK),position, in. window("action"), 
write. screen([" Disassemble the Fuel Oil Storage 
Ballast/","stripping valve for", TANK,". 
Check for blockage holding the valve in the", 
“open position, allowing backflow of water into the 
service tank."}), 
position in. window("problem 
analysis"),write. screen(["Was the ballast/ stripping", 
“valve blocked open or partially open?" ]). 


f "k F F sk Sk SE ЖЖ Ж Ж Ж ЖЖ ЕЖ ЖЕ a ee ee Ы 


ж Water in the Fuel Oil Service Tank * 


ok sk ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok 2k ok ok ok ok K R K R K R K K R ok ok ck R K KR K K ok ok ok R O R K K k k ok ЖҰ ЖҰЖ ЖЖ 


question("fuel filled from"):- 
position, in. window("action"), 
problem, tank(COMP NUM ),position, in. window("problem 
analysis"), 
write screen([" Which fuel oil storage tank was", 
"fuel oil service tank“, COMP NUM "filled from?"]). 


guestion("fuel waterpaste“):- filled from(OUES VAR), 
position in window("action“), 
write screen(["Do a waterpaste test on fuel oil storage 
tank ",QUES VAR, 

". position, in. window(" problem analysis"), 

write screen(["Is the test positive for water?" ]). 


question("fuel outbd fuel"):- 
position in. window( action"), 
otbd void(QUES VAR), 
write screen([" Sound the outboard D.C. void" ,QUES_VAR]), 
position_in_window("problem analysis"), 
write screen(["Does the sounding tape indicate the 
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presence of fuel", 
"(May require a waterpaste test)?" ]). 


question("fuel backflow"):- 
otbd void(QUES VAR ),position, in. window("action"), 
write screen([" As a precaution to eliminate D.C. Void", 
QUES_VAR,"as a possible source of contamination, 
pump","it to zero and leave", "empty until actual 
source of" ,"contamination to", "Fuel Oil Service tank 
is","determined. ","Monitor level of' ,QUES. VAR,'to see 
if","its level rises from","fuel leakage back through", 
"void suction tail pipe. ","Alternative is to open,“, 
"gas free and visually", "inspect suction tail pipe in", 
QUES VAR]p)position. in. window(" problem analysis"), 
write screen(["Does oil flow back into the void?" ]). 


guestion("fuel check pipes" ):- otbd. void(QUES VAR), 
position in window( action"), 
write_screen({"The tailpipe in D.C. void", QUES. VAR, 
"Is backflowing fuel,pump down Fuel Oil service", 
"tank and check the 2 1/2 inch copper-nickle void", 
"suction line passing through the service tank." ]), 
position in window(" problem analysis"), 
write. screen([" Are any pipes leaking?" ]). 


question("fuel fuel inboard"):- 
position in window(action“), 
position in window("problem analysis“), 
print("inboard voids“,"problem analysis“), 
write screen(["Do soundings or waterpaste test indicate 


"в 


there is fuel","in any of these voids?"]). 


question("fuel pipes inboard“):- 
position in. window( action"), 
write screen([" The inboard D.C. void indicates fuel is 
present," ),question( "leaking "). 


question("fuel void suction"):- problem, tank(TANK), 
position in window(“action“), 
write screen([ "Pump down fuel oil service 
tank", TANK,"and inspect 2 1/2", 
"inch void suction line in service tank for cracked or 
leaking couplings"]), 


101 


position in window(" problem analysis"), 
write. screen([" Are there any leaks in the 2 1/2 inch 
void suction line?" ]). 


question("pumps refills fuel"):- 
position in, window("action"), 
write. screen(["Pump inboard void empty"," Take soundings 
and do waterpaste", 
"test after serveral hours to see if voids refill with 
fuel." ]),position in. window(" problem analysis"), 
write screen(["Do any voids in the string refill with 
fuel?" ]). 


question("leaking"):- position in window("action"), 
write screen(["pump down void, open, gas free, and check 
for leaks", 
"on: \n", 
"4 inch fuel oil service suction \n", 
"5 inch fuel oil transfer to FOS tank \n", 
"2. inch recirc pipe to FOS tank \n", 
"2.1/2 inch stripping pipe to FOS tank \n", 
"heating coils \n"]}),position_in_window(‘problem 
analysis"), 
write screen([" Are any pipes leaking?"]). 


guestion("fuel cracks“):- problem tank(COMP NUM), 
position in Window("action“), 
write_screen(["Piping is not leaking. As a precaution,“, 
"do not flood inboard D.C. voids. ","Pump, open, gas", 
"free, and inspect", COMP NUM, " for cracks in the", 
"longitudinal bulkheads near","the weld to the 
transverse", 
"bulkhead. Check for leaks","at cracks in pipe and 
heating”, 
"coil penetrations in the” "lower part of the void."]), 
position_in_window("problem analysis"), 
write screen([" Are there any cracks?"]). 


question("fuel water"):- position in window(action“), 
position in window("problem analysis“), 


print("inboard voids”, problem analysis”), 
write screen(["Is there water in these voids?" ]). 
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question("fuel pump"):- position in. window("action"), 
write, screen(["Pump void empty as a precaution" ]), 
position in. window("problem analysis"), 
write screen(["Does void refill with fuel?"]). 


guestion("fuel trans conn“):- 
position, in. window("action"), 
position, in window(" problem analysis"), 
write, screen(["Is the emergency connection from the Fuel 
Oil Service", 
"pump suction piping to the Fuel Oil Transfer system ", 
"open (normally a locked closed valve)?" ]). 


question(" heavy seas"):- position, in, window("action"), 
position, in. window(" problem analysis"), clearwindow,nl, 
write screen(["Has the ship been operating recently in 
heavy seas, which", 
"could have backflowed through the overflow piping into 
the service tank?" ]). 


question( "fuel stripp open“):- problem tank(TANK), 
position, in. window( action"), 
write screen([" Disassemble the Fuel Oil Service", 
"stripping valve for", TANK,". Inspect for debris under 
the seat,”, 
“disc off stem, and correct, free operation"]), 
position_in_window("problem analysis"), 
write screen([" Was the stripping valve damaged or 
inoperative?" ]). 


question("stripp paste"):- 
problem, tank(TANK),position in window("action"), 
write screen([" Strip Fuel oil service tank", TANK, 
"and perform water paste test" ]), 
position in window("problem 
analysis“),write screen(["Was“",TANK, 
"successfully stripped of water?"]). 


question("stripp blockage"):- 
problem tank(TANK),position in window("action"), 
write screen(["Disassemble the Fuel Oil Service", 
"stripping valve for", TANK,". Check for blockage 
holding the valve in the", 
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"open position, allowing backflow of water into the 
service tank." |), 

position in window("problem 

analysis"),write screen([" Was the stripping", 
"valve blocked open or partially open?" |). 


question("water above"):- position in window(" action"), 
problem, tank(TANK),above  tank( ABOVE), 
write. screen(["Open and inspect the compartment 
above", TANK," which is", 
ABOVE,"and check for water" ]),position in window("problem 
analysis"), 
write screen(["Is there water in", ABOVE]). 


question("skin of ship"):- position in window(" action"), 
write screen(["Inspect manhole cover, flange coaming, 
gasket, deck,", 
"pipe penetratings, and sounding tube/ air escape piping 
on decks above", 
"for deterioration and possible avenues of leakage"), 
position in window(" problem analysis"), 
write screen(["Was a path for water to leak into the 
service tank found”, 
"on the fourth deck?"]). 


JEF F obe КЕ Ж sce ЖЕ ЖЕЖ Pt p E а а ы 


ж ж 
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question("voids have oil"):- position_in_window("action"), 
position_in_window("problem analysis"), 
print("voids in string”, problem analysis"), 
write_screen(["Do any of the above Voids contain 
fuel?"]). 


question(" which void has oil"):- 
position, in. window( action"), 
position in. window("problem analysis"), 
print( voids in string"," problem analysis"), 
write screen([" Which Void contains fuel?"]). 
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ж ж 
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question("sea valve leak"):- 
problem tank(TANK),above tank( ABOVE), 
position in. window(" action"), 
write_screen(["Empty”, TANK "remove tank", 
"top cover in", ABOVE,"gas free and visually observe sea 
valve”, "for leakage.”]),position_in_window("problem 
analysis”), write_screen([ 
"Does sea valve leak?"}). 


question(" void backflow^):- 
position in, window("action"),write screen([ 
"While void is empty and suction secured, ","gas free and 
enter void,", 
"check void suction tailpipe for backflow."]), 
position, in. window(" problem analysis"), 
write screen(["Is there backflow?")). 


question("cycle sea valve“):- 
problem tank(TANK),position in window("action"“), 
write screen(["Hydraulically cycle sea valve 
Гог, , TANK,"and then pump,“, 
TANK,"empty."]),position, in window(" problem analysis"), 
write screen([" Observe sea valve,", 
"did cycling the sea valve stop leakage?" ]). 





question(" manifold 
pressure" ):-position, in. window("action"),write screen([ 
"Break flange of void suction valve in machinery 
| space"," Do not remove", 
"all fasteners." ]),position, in. window("problem 
analysis”), write_screen([ 
“Is manifold under water pressure?" ]). 
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question(" void cracks"):- position in window(" action"), 
position in window("problem 
analysis"),write screen([" Are there", 
"any cracks in welds at transverse bulkheads", 
"or in piping penetrations?" ]). 


question("overboard"):-position in window("action"), 
write. screen([ 
"Check line up of machinery space or pumproom 
eductor."," If the", 
"firemain supply in open" ]),position in. window(" problem 
analysis"), 
write. screen(["Is the overboard discharge valve", 
"of the eductor open?" ]). 


question(" void suction"):- position in, window("action"), 
position in. window("problem analysis"), 
write screen([" Are other void suction valves open?" |). 


question( "open ovbd"):- 
position, in. window("action"),write, screen([ 
"Open the overboard discharge." ]), 
position, in. window(" problem analysis"), 
write screen(["Is pressure at the void valve manifold 
removed?" ]). 


question("close suction" ):-position, in. window(" action"), 
write. screen([" Close all other suction valves in the 
machinery space or pumproom." ]), 
position, in. window(" problem analysis"), 
write screen(["Is the void manifold under pressure?’ ]). 


question(" bulkhd stopsopen"):- 
position in window(“action“), 
write screen([" Verify that bulkhead stops in the main", 
"drain system", 
"for the affected machinery space/ pumproom are 
closed." ]), 
position in window("problem analysis"), 
write screen([" Are bulkhead stops closed?" ]). 


question( flooding valve"):-position, in window("action"), 
position in window(" problem analysis"), 
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write screen(["Is the sea flooding valve to the 
ballast system closed and locked?"]). 


question( close bulkhd stops"):- 
position in window("action"), 
write screen(["Close main drainage systems bulkhead“, 
"stops."]),position in window("problem analysis“), 
write screen(["Is the", 
"void manifold under pressure?" ]). 


question("close flood valve"):- 
position, in. window("action"), 
write. screen([" Close sea flooding valve."]), 
position in. window(" problem analysis"), 
write screen(["Is the void manifold under pressure?"]). 
question("holes"):- 
above. tank(ABOVE),position, in. window(" action"), 
write screen([" Open, gas free (if necessary)and", 
"inspect the 4th deck compartment" , ABOVE,"for holes in 
the deck coaming, tank top, gasket or penetrations."]), 
position, in, window(" problem analysis"), 
write screen([" Were holes/", 
"breaks found in ",ABOVE,"?"]). 


guestion("inboard void“):- problem tank(TANK), 
position in. window(" action ),print("inboard 
voids", " action"), 
write screen([" The above voids are located", 
“inboard of", TANK,". Pump down these voids, open, gas 
free’, and inspect’, 
"2 1/2 inch copper nickle void suction line to", TANK]), 
position, in window(" problem analysis"),write screen([ 


"Are any lines leaking?" ]). 


A E A EI ЖЕЖ Ж k 


ж ж 
* Oil in the Void Tank Е 
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question("losing fuel"):- position, in, window("action"), 
position in window(" problem analysis"), 
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print("fuel tanks”,"problem analysis"), 

! problem_tank(COMP_NUM), 

write screen([ "The above are fuel oil system 

associated pipes contained in “, COMP NUM,“. Are any of 
these tanks losing fuel?"]). 


guestion("cracks in tank“):- problem tank(COMP NUM), 
position in window("action“), 
write screen(["Pump, open, gas free,", 
"and inspect", COMP. NUM, "for cracks in the 
longitudinal bulkheads near the weld", "to the 
transverse bulkhead.", 
"Check for leaks at cracks","in pipe and heating coil", 
"penetrations in the lower part of the void."]), 
position in window("problem analysis"), 
write screen(["Are there any cracks in ", COMP NUM,"?")). 


guestion("fourth deck“):- retrieve adjacent(above), 
above tank(TANK), 
position in. window(" action"), 
write screen(["Inspect fourth deck compartment for oil", 
"on deck, loose or deteriorated tank top to void", 
"below holes in deck, holes in pipe","penetrations (air 
escape, "," sounding tube, or TLI."]), 
position in. window("problem analysis"), 
write screen([" Are there any leaks in", TANK,"?"}). 


question("void losing fuel water"):- 
position, in window( action"), 
position in window(" problem analysis"), 
print("string fuel tanks","problem analysis"), 
write, screen([" Are any of the above fuel tanks", 
"losing fuel/filling with water?" ]). 


question(" which tank losing fuel"):- 
position in window("action"),position, in window("problem 
analysis"),write, screen(["Which tank is losing fuel?"]). 
guestion("check valve“):- position in window("action"), 
position_in_window("problem analysis"), 
write screen(["Is the void suction valve open?"]). 


question("check debris"):- position in. window("action"), 
write screen(["Disassemble the void suction valve and", 
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"remove bonnet from manifold. Inspect debris/ blockage”, 
"under the seat."]), 

position in window("problem analysis“), 

write screen(["Was there blockage/ debris under the 
valve?"]). 


question(" void pump"):- position in, window("action"), 
write, screen(["Open void suction valve." ]), 
position in. window(" problem analysis"), 
write screen(["Does the void pump?"]). 


guestion("clean valve“):- position in window("action"), 
write screen([" Clean suction valve." ]), 
position, in. window(" problem analysis"), 
write screen([" Will the void pump?" ]). 


question(manifold):- position in. window("action"), 
position in, window("problem analysis"), 
write screen(["Is manifold under water pressure at 
suction valve?" ]). 


question(eductor):- position in window("action"), 
write screen(["Check eductor lineup.","Check overboard 
discharge suction valve firemain supply.", "(Note: Check 
valve clattering”, 
"means eductor is drawing air)" ]), 
position, in. window(" problem analysis"), 
write screen(["Is eductor lined up incorrectly?" ]). 


question(bilge):- position in. window("action"), 
write screen(["Check other valves in the machinery", 
"space or pumproom."]), 
position in. window(" problem analysis"), 
write screen([" Are bilgewells and other void suction", 
"valves all closed?"]). 


question(submersible):- problem tank(TANK), 
position in. window(" action"), 
write screen(["Open" , TANK,"pump with submersible pump", 
"(Note: NSTM permits pumping oil)"]), 
position in. window(" problem analysis"), 
write screen([" Will tank not pump down?"]). 
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question(tailpipe):- position in window("action“), 
position in window("problem analysis“), 
write screen(["Is there backflooding through the", 
"tailpipe?" ]). 


guestion("ovbd discharge“):- position in window("action"), 
position, in. window("problem analysis"), 
write screen(["Is the eductor overboard discharge", 
"open?"]). 


question( "sounding tube"):- position in, window("action"), 
write screen([" Trace out sounding tube and air", 
"escape." ]), 
position in window("problem analysis"), 
write screen(["Is void flooding through breaks in", 
"sounding tube or air escapes?" ]). 


guestion("unable pump losing fuel“):- problem tank(TANK), 
position in window("action“), write screen([ 
“Pump, open, and gas free", TANK,".","Inspect fuel oil", 
"transfer/stripping/suction", 
"line for leaks." ]), 
position in, window("problem analysis"), 
write screen(["Are pipes leaking?" ]). 


question(" bulkhd stops"):- position in window("action“), 
position in window(" problem analysis"), 
write screen([" Are the bulkhead stops closed?"]). 


question("close valve"):- position in window("action“), 
write, screen([" Close all valves."]), 
position, in. window(" problem analysis"), 
write screen([" Will void pump now?"]). 


question(bulkhd, stops. close):- 
position in window("action“), 
write screen(["Close the bulkhead stops."]), 
position_in_window("problem analysis"), 
write screen(["Will void pump now?"]). 


guestion("leaky pipes“):- position, in. window("action"), 
problem tank(TANK),!,retrieve contains,!, 
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compare_string_void_to_contains, 

print(string voids in tank", action’),nl, 

write screen([ "Pump down, open, gas free, and check", 
"each of the above", 

“voids for leaks on the 2 1/2 inch stripping pipe to", 
TANK]),position_in_window("problem analysis”), 


write_screen(["Are any pipes leaking?"]). 
ИИ ore doe dore le e ll ol e e k ЖЖЖ ЖЖ ЖЖЖ ЖЖ ЖЖ 


* ж 
Ж Void Overflowing * 
* * 


Ше ЕЕЕ ЕЕЕ Е Е ЕЕЗ КЕ ЕЖ ЕЕ ЖЖ ЖЕК ЖЕЖ/ 


question("pump run refuel") :- position_in_window("problem 
analysis"), 
write screen([" Are any fuel oil transfer pumps running", 
"or is the","fuel oil transfer system pressurized due to", 
"refueling?"]). 


question("pump overflow") :- problem tank(TANK), 
position, in, window("action"), 
write screen([" Secure fuel oil transfer pumps or isolate 
the transfer", 
"System to the section serving service tank", TANK]), 
position, in. window(" problem analysis"), 
write screen(["Is the service tank still overflowing?"]). 


БОИ Е ЕЖ ЕЕЕ ЖЕК ЕЖ ЕЖ ЖЕ ЖЕ ЖЖ ЕЖ ЖЕ 


ж ж 
Ы Overflowing Water ж 
ж ж 


РЕТ ЕЕЕ ЕЕ ЕЖЕ КЕ ЖЕЕ ЕЕ e eo e ЖЖЖ ЖЕЖ ЖЕЖ ЖЖЖ ЕЖ ЕЖ Ж/ 


question("strip sys used") :- position in window(" problem 
analysis" ),write screen([ "Is the fuel oil stripping 
system being used?"]). 


question("trs valve ovrfl") :- problem tank(TANK), 
position, in window("action"), 
write screen([" Close the fill/transfer valve to ", TANK)), 
position, in. window("problem analysis"), 
write screen(["Did service tank", TANK, "stop 
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overflowing?’ }). 


question("eductor strip") :- position in, window("problem 
analysis"),write screen([ "Is the eductor being used to 
strip?" ]). 


question("recirc fostank") :- problem tank(TANK), 
position, in window(" problem analysis"), 
write screen([" Are the fuel oil service pumps 
recirculating to", TANK,"?"]). 


guestion("ovbd dis open") :- position_in_window("problem 
analysis"),write_screen(["Is the eductor overboard 
discharge open?" ]). 


question("strip lineup") :- position in. window(" problem 
analysis"),write screen(["Is the stripping pump lined up 
correctly? |). 


guestion( "close recirc“) :- problem tank(TANK), 
position in window("action“), 
write_screen(["Secure recirc to", TANK]), 
position_in_window("problem analysis"), 
write screen(["Did the overflow from service 
tank", TANK,"stop?"]). 


question("fill x. fer") :- problem, tank(TANK), 
position in. window(' action"), 
write screen(["Disassemble and inspect the fill/transfer 
valve to", TANK)]), position in. window("problem analysis"), 
write screen(["Was the fill/transfer valve operating 
correctly?" |). 


question("ovbd ovrfl stop") :- problem tank(TANK), 
position in window(" action"), 
write screen(["Open the eductor overboard discharge" ]), 
position, in. window(" problem analysis"), 
write screen(["Is service tank" ,o TANK, "still 
overflowing?"]). 
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ж ж 
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guestion("correct ovrfl stop") :- problem tank(TANK), 
position in window("action"), 
write screen([" Verify correct line up of stripping 
pump" J),position in. window(" problem analysis"), 
write screen(["Is service tank", TANK,"still 
overflowing?" ]). 


question("strip suct valve") :- problem. tank(TANK), 
position, in. window("action"), 
write screen(["Disassemble and inspect stripping valve to 
service tank", TANK)J), position in window(" problem 
analysis"),write screen(["Is the stripping valve 
to", TANK," operating correctly?" ]). 


question("serv suct valve") :- problem tank(TANK), 
position in window(action“), 
write screen(["Disassemble and inspect the service suction 
valve to", TANK)), position in window(" problem analysis"), 
write screen(["Is the service suction valve to", TANK, 
"operating correctly?"]). 


question("recirc valve") :- problem, tank(TANK), 
position, in window("action"), 
write screen(["Disassemble and inspect the recirc valve 
to", TANK ),position in, window("problem analysis"), 
write screen(["Is the recirc valve to", TANK,"operating 
correctly?" ]). 


question( pipe leak") :- problem, tank(TANK), 
position in window("action"), 
write screen(["Open, gas free, and inspect piping and 
structure in", TANK"]), position in window("problem 
analysis"),write screen([" Are any pipes or is any 
structure in", TANK, "ruptured or","leaking?"]). 
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question("fot pump run refuel”) :- 
position in window("problem analysis“), 
write screen([" Are any fuel oil transfer pumps running or 
is the","fuel oil transfer system pressurized due to 
refueling?”]). 


question("fot pump overflow") :- problem_tank(TANK), 
position in window("action“), 
write screen([" Secure fuel oil transfer pumps or isolate 
the transfer’, 
"system to the section serving storage tank", TANK}), 
position, in window("problem analysis"), 
write screen(["Is the storage tank still overflowing?"]). 


guestion("fot strip sys used") :- 
position in. window(" problem analysis"), 
write screen(["Is the fuel oil stripping system being 
used?"]). 


question("fot trs valve ovrfl") :- problem, tank(TANK), 
position in window( action"), 
write screen([" Close the fill/transfer valve to ", TANK]), 
position, in. window(" problem analysis"), 
write screen(["Did storage tank", TANK,"stop 
overflowing?" ]). 


question("fot eductor strip") :- position in window("problem 
analysis "),write screen(["Is the eductor being used to 
strip?" ]). 


question("fot ovbd dis open") :- position in window("problem 
analysis"),write screen(["Is the eductor overboard 
discharge open?" ]). 


question("fot strip lineup") :- position in window("problem 


analysis"),write screen(["Is the stripping pump lined up 
correctly?")). 
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question(" fot fill x fer") :- problem tank(TANK), 
position in window("action"), 
write screen(["Disassemble and inspect the fill/transfer 
valve to", TANK]), position in window(" problem analysis"), 
write screen(["Was the fill/transfer valve operating 
correctly?" ]). 


question("fot ovbd ovrfl stop") :- problem tank(TANK), 
position, in window("action"), 
write screen(["Open the eductor overboard discharge" ]), 
position in. window(" problem analysis"), 
write screen(["Is storage tank", TANK, "still 
overflowing?"]). 


question("fot correct ovrfl stop") :- problem tank(TANK), 
position in window(action“), 
write screen(["Verify correct line up of stripping 
pump" ]),position_in_window("problem analysis"), 
write screen(["Is storage tank", TANK, "still 
overflowing?"]). 


question("fot strip suct valve") :- problem tank(TANK), 
position, in. window( action"), 
write screen(["Disassemble and inspect stripping valve to 
storage tank", TANK)), position in. window("problem 
analysis"),write_screen(["Is the stripping valve 
to’, TANK," operating correctly?" ]). 


question("fot pipe leak") :- problem_tank(TANK), 
position, in window(" action"), 
write screen([" Open, gas free, and inspect piping and 
structure in", TANK"]), position in, window(" problem 
analysis"),write screen([" Are any pipes or is any 
structure in", TANK,"ruptured or","leaking?"]). 


EM LOU жЕ Е ЖЖ ЖЖ ЕЕ ЖЕ ЕЖ АЕ ЕЕ ЖЕ ЕЖ ЕЖ Ж ЕЕЕ ЖЖ 
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ЕТТЕ ЖЖЖ ЖА А А ЕЕЕ ЖЕЖ ЖЖ ЕЖ Ж / 


115 


project "PIPES" 


include "PipeGdoms.PRO" 
include "PipeGdbase.PRO" 
include "GlobDef.PRO" 


ЈЕ АЕ ОКК oje k o Ye R S R КОЕ БИЕ К ЫЫ KS 


write solution predicate is used to determine the 
appropriate solution to the gueries from the user 
based on the responses given to the 

proposed guestions and facts collected from the 
pipesystem database. These facts are asserted in 
the problem(LIST OF PROBLEMS) fact. 

The first object in the write solution predicate 

1s the original problem selected from the problem 
menu and the clauses are grouped by this 

object for program clarity. 


Solution builds the screen display and writes the 
appropriate solution 


ETE + X ххх хх хи 
++ x X*s x X Xs X Xs x X © yx OF 


sek >F SF SF Ж ЕЖ ЕЕ Ж КЕ ЖАЖА НЫШ RE ITT TT БУИ. 


CLAUSES 


solution:- position_in_window("action"),clearwindow, 
makewindow(12,23,7,"Solution",8,5,10,70,1,255, 
"201\187200\1 88\205\1 86"), problem(PROBLEMLIST),!, 
position in, window("solution"), 
write solution(PROBLEMLIST),retract, facts, 
readchar(_),removewindow(12,1),!. 

solution:- retract_facts. 


ЕЖ жЕКЕ ЕКЕ ЕЕ ЖЕБЕ Б ЕЕ ЕРЫК ЕТ ЫН БЫ 


ж ж 
E OIL IN A VOID TANK A 
ж ж 
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write. solution(["oil in void", "losing fuel"]):- 
problem tank(COMP NUM), 
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fuel(COMPNO2),write_screen([{"A fuel oil", 
"transfer/stripping/suction line to", COMPNO2, 


"is cracked/holed in", COMP NUM,".","Pump, open, clean,", 


"gas free, and repair ruptured pipe."]). 


write solution(["oil in void","cracks"]):- 
problem tank(COMP NUM), 
retrieve_adjacent(all) print(" adjacent 
fuel" solution),!, 
write screen([" The cause of the fuel in void", 
COMP_NUM,,"is a crack in the bulkhead into", 


"one of the above tanks" ]). 


write solution(["oil in void "," 4th deck" ]):- 
above tank(FOURTH DECK), 


problem tank( COMP NUM),wnite screen(["Fuel in" , COMP NUM, 


"is coming from a break in" FOURTH DECK, 
"above." ]). 


БЕРЕКЕ Ж ЖЕЖ ЖЕЖ ЖЖК ЖЕ ЖЖК ЖЕЖ SF SR je oko ke ok 5k ЖӘ ӘС 


ж 
ж 
ж 


UNABLE TO PUMP VOID TANK 


* 
* 
* 


ШИЕВ ЕЕ ЕЕЕ РЕКЕ ОЕ ЕЕЕ ЕЕ ЕЖЖЖ ЕЖ Ж/ 


write. solution(["unable to pump","leaks" ]):- 
problem tank(TANK), 
write screen(["The cause of ",ITANK," not pumping", 
"1s that it is refilling from a fuel oil tank in the", 
“string through a leak in the", 
"fill/transfer/stripping/service piping inside", TANK]). 
write solution(["unable to pump"," pumps" ]):- 
problem tank(TANK), 


write screen(["The cause of ", TANK," not pumping is", 


"that the correct suction valve in the machinery", 


"тт 


“space/pump room was","not open."]). 


write solution(["unable to pump","clean valve"]):- 
problem, tank(TANK), write. screen(["The cause of", 
TANK,"not","pumping is debris/foriegn object/rag", 


"tot 


"blocking the suction"," valve from functioning."]). 


117 


"nn 


write_solution(["unable to pump","eductor”]):- 
problem_tank(TANK), write_screen(["The cause 
of" TANK, "not", 
"pumping is one of the following:" 
"A. eductor overboard discharge not open", 
"B. eductor firemain supply not open", 
"C. eductor suction valve not open", 
"D. firemain isolated from firemain supply valve"]). 


write solution(["unable to pump"," valves closed" ]):- 
problem. tank(TANK), write screen(["The cause of ",TANK, 
"not pumping is another suction valve or bilge well", 


"valve in the","machinery space/pumproom is open", 
"causing" a loss of vacuum to", TANK)). 


write solution(["unable to pump","bilge"]):- 
problem tank(TANK), write, screen([" The cause of", 
TANK, ‘not pumping is a bulkhead stop to another’, 


в" 


"machinery space/","pumproom is open."]). 

write solution(["unable to pump"," submersible"]):- 
problem, tank(TANK), write screen([" The cause of, TANK, 
"not pumping is the sea flooding valve", 
"is stuck open or has debris", 
"nder the seat or there is a large opening to", 
"the sea." ]). 

write solution(["unable to pump" ,"cracks" ]):- 
problem, tank(TANK), write, screen(["The cause", 
"of", TANK, "not pumping is cracks in (1)bulkhead", 
"structure generally near ","welds to tranverse", 
“bulkheads or (2)around piping ","penetrations into", 
"adjacent tanks or (3)to the sea."}). 

write solution(["unable to pump"," sounding tube" ]):- 
problem tank(TANK), write screen(["The cause of", TANK, 
"not pumping is that it is reflooding through a break", 
“In the sounding tube outside the tank or a break in", 
"the air escape","allowing water to flow from an", 
"exterior source into the void."]). 


write solution(["unable to pump" "string leaks" ]):- 
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problem, tank(TANK), write screen(["The cause of", 
TANK, ‘not pumping is it is refilling from a leak", 

"jn a void suction line","to another void in the", 
"string." ]). 


E E E E Е E ЕЖ ЖЖЖ ЖЕЖ ЕЖ Ж ЕЕ ЖЕ Ж Ж Ж ЖЖ ЕЖ ЖЕЖ ЖЖЖ ЖЖЖ 


ж ж 


E WATER IN A FUEL OIL SERVICE TANK $ 
* ж 


РЕКЕ ЖЕТЕ ЖЕЖ ЖЖЖ Ж ЖЕЖ ЕЕ ЖЕ ЖЕЖ ЖЖ ЖЖЖ ЖЕЖ ЖЖЖ ЖЖ / 


write_solution(["water іп tank","outboard void"]):- 
otbd_void(QUES_VAR), 
write screen([" The outboard D.C. void", QUES VAR, 
"indicates oil present, pump down, open and gas free", 
"problem Fuel Oil Service tank and check the 2 1/2", 
"inch copper-nickle void suction line for leakage,", 
“particularly at silver braze fittings." ]). 


РЕТТЕ ЖЕКЕ ЖЖЖ ЖЖЖ ЖЖЖ ЖЕЖ ЖЖ ЖЕ ЖЖЖ ЕЕЕ Ж 
Ж 


* 
* 


* 
Water in the Fuel Oil Service/ Fuel Oil Storage Tank % 


* 
ke ek ok ok ok k kok k kok ok k kok k kk o ok ok kok Pk Ж ЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ / 


write_solution(["water in fuel","void suction"]) :- 
problem_tank(TANK), 
otbd_void(OUTBOARD),!, 
write screen([" The void suction line to the", 
"outboard void”, OUTBOARD, 
“Is ruptured in ",TANK,".","Empty, clean, gas free,”, 
"and repair the", 
"break in the 2.5 inch" ," void suction line in", TANK)). 


write solution([" water in fuel","leaks"]) :- 
inbd void(INBOARD), write screen(["A fuel oil ", 
"service/ transfer/ stripping pipe is leaking in”, 
INBOARD,". Do not", 
“flood ",INBOARD,". Empty, clean, gas free,and", 
"repair the break in the failed pipe in", INBOARD ]). 


write_solution(["water in fuel”,"“cracks"])) :- 
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problem tank(TANK), inbd void(INBOARD), 
write screen([" There are cracks in ",INBOARD, 
"allowing water to ","leak into ", TANK, 

" Do not flood ",INBOARD,". Empty, clean, gas ", 
"free "INBOARD, "and", TANK, 

"and repair bulkhead cracks." }). 


write solution([" water in fuel","x-fer"]) :- 
write screen(["The emergency connection from ", 
"the fuel oil service pump suction piping directly to 
the fuel oil" ," transfer system was open or leaking", 
"through. Close and lock the ", 
"valve or repair it. " |). 

write solution([" water in fuel","stripp blockage"]) :- 
problem tank(TANK), 
write screen([" The stripping valve to ", TANK, 
"15 being held open by ","foriegn matter or is", 
“damaged, allowing water to backflow through ", 
"the stripping line into the service tank."]). 


write solution([" water in fuel","stripp open") :- 
problem tank(TANK), 
write screen([" The stripping valve to ",TANK, 
"1s inoperative, the "," disc is off the stem, or", 
"the disc is jammed in the closed position ", 


"preventing", TANK," from being stripped." ]). 


write solution(["water in fuel" ,"skin of ship" ]) :- 
problem tank(TANK), 
above tank( ABOVE), 
write screen([" The source of water in ", TANK, 
"15 a leak from the ","fourth deck compartment”, 
"above, ", ABOVE,". The tank top, tank top ", 
"flange coaming, deck, gasket, stuffing tube,or a", 
"piping penetration is allowing water to enter ", 
TANK P). 

write, solution(["water in fuel"," heavy seas"]) :- 
problem tank(TANK), 
write screen([" Water from high seas is backing through", 
"the service tank overflow piping through a stuck or", 
"leaking check valve, back ","into the service" ,tank,", 
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TANK |J). 


ШЕК Т ЕЕЕ ЖЖ ЖЖЖЖ ЕЖЕ КЕЕ БЕКЕ ЖЕЕ ЖАЖА ЖЕЖ ЖЖЖ ЖЖ ЖЖЖ 


* * 
ж WATER IN THE FUEL OIL STORAGE TANK i 
ж ж 


И Е eee ee eee o sese Е ЗЕ Е К ККК Ж у 
write solution(["water in fuel","fot leaks"]) :- 
inbd_voidINBOARD), write_screen(["A fuel oil ", 
"transfer/ ballast/ stripping pipe is leaking in", 
INBOARD,'. Do not flood ",INBOARD, 
". Empty, clean, gas free, and repair the", 
“break in the failed pipe in" INBOARD |). 


MN nn NO ЖЕЖ ЕЖ ЖЕЖ ЖЖ ЕЖ ЕЖ Ж ЖЕ РЕ ЖЖЖ ЖЖЖ Ж ЖЖ 


ж ж 
E VOID PUMPS BUT REFILLS WITH WATER Ç 
* * 


КООШО de ode ak e o e e le a de ole k E ЕЖ e o e le 3k Sk sk ae Ae sk SF Sk sk k OR R k / 


write solution(["pumps but refills“,"industrial 
repair’ ]):- write_screen(["The sea flooding valve is", 
"leaking through and will not reseat. ", 
"The valve must be cofferdamed and repaired by an", 
"industrial activity." ]). 


write solution([" pumps but refills","cycle sea valve"]):- 
write screen(["Debris under the seat of the sea valve", 
"or other obstruction", 
"was released, allowing the valve to be reseated when", 
"cycled."]). 


write solution(["pumps but refills"," void cracks" ]):- 
problem, tank(TANK), 
write screen([" Cracks in bulkheads are allowing", 
TANK, to refill","from adjacent flooded voids.", 
"Pumping adjacent voids will", 
"remove source of water. Industrial repairs", 
"required. "]). 


write. solution(["pumps but refills"," debris" ]):- 
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problem_tank(TANK), 
write_screen({"Debris under the seat of the", 
"void suction valve","allowed water to", 
"back from the main drain system through the suction", 
"valve into the void", TANK)). 
write solution(["pumps but refills"," open ovbd"]):- 
problem, tank(TANK), 
write screen(["The eductor overboard was closed", 


"allowing fire main", "pressure to leak back", 
"through suction valve to void", TANK)]). 


write solution([ "pumps but refills","breaks"]):- 
problem, tank(TANK), 
write screen(["The source of water refilling void", TANK, 
"was a break in sounding tube or airescape piping", 


“or a missing”, Sounding cap providing a path for", 
"flooding from another source above."]). 


write solution([ "pumps but refills","holes 4th deck" ]):- 
problem tank(TANK), 
above tank(ABOVE), 
write screen(["The source of water refilling void", TANK, 
"was a break in the deck, tank top cover,manhole", 
"covering or piping penetrations in", ABOVE ])). 


write, solution(["pumps but refills","inboard void"]):- 
problem tank(TANK), 
inbd_void( INBOARD), 
write_screen({"The source of water refilling void", 
TANK,"was a break in the void suction line in", 
INBOARD)). 


write. solution(["indeterminate data" ]):- 
write screen(["The answers provided thus far are", 
"not sufficient to" ," determine a cause, retrace ", 
"your answers through","the system again,and if", 


"possible provide additional information." ]). 
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* PipesMain.prg is the main menu for the Pipes Ж 
* database system ° 
ЖЖ ЖЖЖЕЖЖЖ ЖЖЖ ЖҰЖЖЖЖЖЖ ЖЖ Ж ЖЖЕЖЕЖЖ ЖЕ ЖЖЖ ЖҰ ЖЖ ЕЖЖЖЖЕЖЖЖЕЖЖЖЖЖж ЖЖ 
SET TALK OFF 
CLEAR 
SET STATUS OFF 
SET BELL OFF 
SET COLOR TO +G,BG/B,R,B 
SelOpt = .T. 
DO WHILE SelOpt 
Selopt = .F. 
SET FORMAT TO pipesmain 
Option = " " 
READ 
CLOSE FORMAT 
DO CASE 
CASE Option = " " 
EXIT 
CASE Option = "A" 
AddSel = .T. 
DO WHILE Addsel 
AddSel = .F. 
Add = " " 
SET FORMAT TO addscr 
READ 
CLOSE FORMAT 
DO CASE 
| CASE Add ="" 
| AddSel = .F. 
CASE Add = "А" 
do contedit 
Addsel = .T. 
CASE Add = "B" 
do compedit 
САЅЕ Ааа = "С" 
ао pipesedit 
CASE Add = "D" 
do adjedit 
OTHERWISE 
| AddSel =.T. 
| ENDCASE 
SelOpt = T. 
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ENDDO 

CASE Option = "Q" 
do pipequery 
SelOpt = .T. 

CASE Option = "P" 
do pipeprint 
SelOpt = Т. 

CASE Option = "B" 
CLEAR 
RUN pipesbk.bat 
Selopt = .T. 

CASE Option = "R" 
CLEAR 
RUN pipesrs.bat 
SelOpt = .T. 

CASE Option = "E" 
RUN SET BGIDIR=c NdbaseWbgi 
RUN Pipes 
SelOpt = .T. 

OTHERWISE 
SelOpt = Т. 

ENDCASE 
ENDDO 
SET STATUS ON RETURN 


`x k < k k ok ok ck k ok ok ok ck ok ck ok ok ok ck ok ok K KOK KOR K K X ok ck dk ok ok 2E ok ck ck ck ck ck ck ok ok ck ck ck ole KOR KOR KR K KOR R RO RO R 


* PipeQuery is the main query menu for the Pipes К 
* database system т 
A k k de ok de al ode ade ade ole od ode ak ode de de ole ak K al od ak o ak de a ak ode de oe ode k K de ak ade de ode ok ode ad ole ak de ade ole k K K k K K kK K k K 
SET COLOR TO +G,BG/B,R,B 
ON ESCAPE RETURN 
Choice =.T. 
DO WHILE Choice 
Choice =.F. 
SET FORMAT TO pipequery 
Option = " " 
READ 
CLOSE FORMAT 
DO CASE 
CASE Option ="" 
CHOICE = LF. 
CASE Option = "C" 
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do access 
CHOICE =.T. 
CASE Option = "Р" 
ChkSel = T. 
DO WHILE Chksel 
ChkSel = F. 
PipeOpt - "" 
SET FORMAT TO pipesys 
READ 
CLOSE FORMAT 
DO CASE 
CASE PipeOpt ="" 
ChkSel = F. 
CASE PipeOpt = "P" 
do passing 
Chksel = .T. 
CASE PipeOpt = "C" 
do pipecont 
Chksel = .T. 
CASE PipeOpt ="S" 
do specmat 
Chksel = .T. 
CASE PipeOpt = "М" 
do material 
Chksel = .T. 
OTHERWISE 
ChkSel = Т. 
ENDCASE 
Choice = .T. 
ENDDO 
CASE Option = "A" 
do adjtank 
CHOICE =.T. 
CASE Option = "L" 
do Lpaint 
CHOICE =.T. 
CASE Option = "S" 
do strings 
CHOICE =.T. 
CASE Option = "T" 
do TankType 
CHOICE - .T. 
CASE Option = "T" 


125 


do inboard 
CHOICE = .T. 
CASE Option = "G" 
do custgry 
CHOICE = Т. 
OTHERWISE 
Choice = .T. 
ENDCASE 
ENDDO 
RETURN 


»k ok ok k ok ok k ke ok ok ok ok ok ok ok ok ok ok ok KOK ok ck K ok oe ok oko ok ok ok ok ok ook ok ok ck R K KOR ok ok ok ok k K KOR ale jeje ole de ale ole ak ok 


i CompkEdit.prg is used to add new records to the t 
* database or modify records that already exists ы 
ЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЕЖЖЖЖЖЖҰЖЖЖЖ 
* UPPER(COMP_NUM) is the KEY field for the COMPARTMENT 
* database 
USE compartment INDEX compno 
SET COLOR TO +G,BG/B,R,B 
ON ESCAPE EXIT 
Adding = .T. 
DO WHILE Adding 
CLEAR 
CLOSE FORMAT 
@ 3, 20SAY "COMPARTMENT DATABASE UPDATE" 
@ 22, 7 SAY "Press ESC to EXIT" 
CompNo = SPACE(14) 
(© 10,5 SAY "Enter the Compartment Number " GET CompNo; 
FUNCTION "!" 
READ 


* Create a Search Variable 
Search = UPPER(CompNo) 


* RETURN if no input 
IF Search =" 
Adding = .F. 
LOOP 
ENDIF 


* Check database for compartment number 
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SEEK Search 
SET FORMAT TO compscr && open format file 


* Edit if found 


IF FOUNDO 
READ 
ENDIF 


* ADD 1f not found 


IF .NOT. FOUND() 
APPEND BLANK 
REPLACE Comp Num WITH UPPER(CompNo) 
READ 

ENDIF 


ENDDO (while adding) 

REINDEX 

ERASE COMPARTM.TXT 

COPY TO COMPARTM FIELDS STRING,COMP_NUM TYPE DELIMITED 
WITH 


BLANK 

CLOSE ALL 

RETURN 
ЖЖҰЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЕЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЕЖЖЖЖЖЖ ЖЖ 
* AdjEdit.prg is used to add new records to the Т 
* database or modify records that already exists Ў 


Kk kK kK k k k k k k k K k k kK kK k k k k K k k K k k K k Fk Fk k k k k k k K kK k k K K k k Æ k k k k k k k k 


* UPPER(COMP_NUM) is the KEY field for the COMPARTMENT 
* database 
USE adjacent INDEX adjcomp 
SET COLOR TO +G,BG/B,R,B 
ON ESCAPE EXIT 
Adding = .T. 
DO WHILE Adding 
CLEAR 
CLOSE FORMAT 
@ 3, 20 SAY "ADJACENT TANK DATABASE UPDATE" 
@ 22, 7 SAY "Press ESC to EXIT" 
CompNo = SPACE(14) 
@ 10,5 SAY “Enter the Compartment Number " GET CompNo; 
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FUNCTION "!" 
READ 


* Create a Search Variable 
Search - UPPER(CompNo) 


* RETURN if no input 


IF Search = " " 
ADDING =.F. 
LOOP 

ENDIF 


* Check database for compartment number 


SEEK Search 
SET FORMAT TO adjscr && open format file 


* Edit if found 


IF FOUND() 
READ 
ENDIF 


* ADD if not found 


IF NOT. FOUND() 
APPEND BLANK 
REPLACE Compt_Num WITH UPPER(CompNo) 
READ 
IF READKEY() <= 36 
DELETE 
PACK 
ENDIF 
ENDIF 


ENDDO (while adding) 

REINDEX 

ERASE ADJACENT.TXT 

COPY TO ADJACENT TYPE DELIMITED WITH BLANK 
CLOSE ALL 

RETURN 
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ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖҰЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


* PipesEdit.prg is used to add new records to the ы 


* database or modify records that already exists т 
A e de ok de de de le ok ad ak ad ad ad ole de al ade le ale ade ale ade ad ale ade ale al ade al ade al ak de ale ade ad ale ade al ade ade ale ad al al ad ale ad ok ok ak ade ale ak ok ak a 


A — — — 


— 


TT w i — 


USE pipesyst INDEX pipesys,pipename 
Adding - .T. 
DO WHILE Adding 
CLEAR 
SET COLOR TO BG/B,N/G,R,R 
CLOSE FORMAT 
pipesys = SPACE(20) 
System = SPACE(35) 
SET FORMAT TO pipestart 
READ 
CLOSE FORMAT 


* Create a Search Variable 
IF pipesys # " " 
Search = UPPER(pipesys) 
SET ORDER TO 1 
ELSE 
IF System # ° " 
Search = UPPER(system) 
SET ORDER TO 2 
ELSE 
Search = 
ENDIF 
ENDIF 


07 tt 


* RETURN if no input 


I Scarch = " " 
Adding = .F. 
LOOP 

ENDIF 


* Check database for compartment number 
Looking = .T. 


SEEK Search 


SET FORMAT TO pipescr && open format file 
RK_QUIT = 12 
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* Edit if found 


IF FOUNDO 
SET COLOR TO +G,BG/B,R,B 
READ 
IF READKEY() - RK, QUIT 
Looking - .F. 
ENDIF 
DO WHILE Looking .AND. .NOT. EOF() 
SKIP 
IF SYSNUM = Search .or. Pipe Sys = Search 
READ 
IF READKEY() - RK, QUIT 


Looking - .F. 
ENDIF 
ELSE 
Looking - .F. 
ENDIF 
ENDDO(while looking) 
ENDIF 
* ADD if not found 


IF .NOT. FOUND(0) .AND. READKEY() * RK, QUIT 
APPEND BLANK 
IF pipesys $ " * 
REPLACE SYSNUM WITH UPPER(pipesys) 
ENDIF 
IF System+" " 
REPLACE Pipe_Sys WITH UPPER(System) 
ENDIF 
READ 
IF Pipe_Sys =" " .OR. SYSNUM="" 
DELETE 
PACK 
ENDIF 
ENDIF 
ENDDO (while adding) 
REINDEX 
CLOSE ALL 
RETURN 
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* ContEdit.prg is used to add new records to the > 
* database or modify records that already exists s 
>< >k >k >x >k >k k 3k 3k 3k 3k k de k ad KOK KOK OK KOK KR OR OK KR K KR KR ad ale ale a ae ade K KOK kk ok K KOR KOR K k KR KOR OR R R R R 
USE contains INDEX contcomp,contsys 
Adding = .T. 
DO WHILE Adding 

CLEAR 

SET COLOR TO BG/B,N/G,R,R 

CLOSE FORMAT 

CompNo = SPACE(14) 

System = SPACE(18) 

SET FORMAT TO contstart 

READ 

CLOSE FORMAT 


* Create a Search Variable 
IF CompNo €" " 
Search = UPPER(CompNo) 
SET ORDER TO 1 
ELSE 
IF System 4 " " 
Search = UPPER(System) 
SET ORDER TO 2 
ELSE 
Search = 
ENDIF 
ENDIF 


* RETURN if no input 


IF Search = " " 
Adding = F. 
LOOP 

ENDIF 


* Check database for compartment number 
Looking - .T. 


SEEK Search 


SET FORMAT TO contscr && open format file 
RK_QUIT = 12 
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* Edit if found 


IF FOUNDO) 
SET COLOR TO +G,BG/B,R,B 
READ 
IF READKEY() = RK_QUIT 
Looking = .F. 
ENDIF 
DO WHILE Looking .AND. .NOT. EOF() 
SKIP 
IF COMPT_NUM = Search 
READ 
IF READKEY() = RK_QUIT 
Looking = F. 
ENDIF 
ELSE 
Looking = F. 
ENDIF 
ENDDO(while looking) 
ENDIF 


* ADD if not found 


IF .NOT. FOUND() .AND. READKEY() # RK_QUIT 
APPEND BLANK 
IF CompNo #" “ 
REPLACE CompT_Num WITH UPPER(CompNo) 
ENDIF 
IF System # " " 
REPLACE SysNum WITH UPPER(System) 
ENDIF 
READ 
IF SysNum =" * .OR. CompT_Num =" " 
DELETE 
PACK 
ENDIF 
ENDIF 


ENDDO (while adding) 
REINDEX 
ERASE CONTAINS. TXT 
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СОРҮ TO CONTAINS TYPE DELIMITED WITH BLANK 
CLOSE ALL 


RETURN 

3k k < < < < > < k x >< ade ade ade k k k k ade ade ale ale ole af ale ie of ade ade ale ale ale ale ale ode ale K K K K X X ale ale ade ade ale KR OK K X X ale R R K ok R 
* Access.prg is used to query the adjacent database Ж 
* for the above tank to get access to an eightdeck tank т 


Sede ole ole ale ole ole ole ode je ode ole ole ode ade Fk ale k ale ole ode ode ade ade a ale ale ale ale ade ade ade ade a ale ale ale ale ade ade ade ale ale ale ale ade ade ade ade ade ale ale ale ae ale ale ale ale k 


USE adjacent INDEX adjcomp 
SET COLOR TO +G,BG/B,R,B 
ON ESCAPE EXIT 
compno = SPACE(14) 
SET FORMAT TO access 
CLEAR 
READ 
CLOSE FORMAT 
* Create a Search Variable 
Search = UPPER(CompNo) 


* RETURN if no input 


IF Search =" " 
CLOSE ALL 
RETURN 

ENDIF 


* Check database for compartment number 


SEEK Search 
SET FORMAT TO adjprt 
* Show if found 


IF FOUNDO) 
READ 
ELSE 
@ 10,16 CLEAR to 13,60 
@ 11,25 SAY "Not an eightdeck compartment" 
wait "" 
ENDIF 
CLOSE ALL 
RETURN 


БЕ 
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* TankType.prg 1s used to list compartments : 
* __ by type i 
< ke ok ok ok ok ok DK k k k X: k k k K k k k KOK OE k K K k k k od oe ole ke KOK k k k k k k k k k k k K K oe ok k k k k k k k k k k 
USE compartm 
ON ESCAPE RETURN 
Listing = .T. 
DO WHILE Listing 

CLEAR 

SET COLOR TO BG/B,N/G,R,R 

CLOSE FORMAT 

Tank = SPACE(10) 

SET FORMAT TO tanktype 

READ 

CLOSE FORMAT 


* Create a Search Variable 
DO CASE 
CASE Tank =" " 


Search = "FOS" 

ComName =" Fuel Oil Service" 
CASE Tank = "T" 

Search = "FOT" 

ComName =" Fuel Oil Storage" 
CASE Tank = "V" 

Search = "VOID" 

ComName = " Void" 
CASE Tank = "C" 

Search = "CONT" 

ComName =" Contaminated" 
CASE Tank = "J" 

Search = ІР 

ComName z " JP-5" 
OTHERWISE 

(212, 21 SAY "Invalid selection" 

(013, 21 SAY "Press any key to continue" 

wait" " 

LOOP 
ENDCASE 
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| 


* Check database for pipe system number 


Looking - .T. 

LOCATE FOR UPPER(USAGE) - Search 
ANS = un 

SET FORMAT TO tankscr && open format file 
RK_QUIT = 12 

RK_PRINT =2 


* SHOW if found 


IF FOUNDO) 
STORE RECNO() TO saverec 
STORE "USAGE" TO Sparam 
STORE ComName+" Compartments " TO Title 
STORE "comprt" TO prtfile 
SET COLOR TO +W/B,BG/R,G,B 
READ 
IF READKEY() - RK, QUIT 
Looking - .F. 
ENDIF 
IF READKEY() = RK print 
do fprint 
Looking = F. 
ENDIF 


DO WHILE Looking AND. NOT. EOF) 
CONTINUE 
IF FOUNDO 
READ 
IF READKEY() = RK_QUIT 
Looking = .F. 
ENDIF 
IF READKEY() = RK_PRINT 
do fprint 
Looking = .F. 
ENDIF 
ELSE 
Looking = F. 
ENDIF 
ENDDO(while looking) 
ENDIF 
ENDDO 
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SET COLOR TO +G,BG/B,R,B 


CLOSE ALL 

RETURN 

sk ok ok ok ok ade ade ade ok ok ok ok ok ake afc fe ok ok ok ok ok ok ok ok ok ok ok ok ale ok ade ade ade ade ok ade ade KOK ok ale ade ade ade ale ok ok ok ok ok ale ok ok ok ok ok oe ok ake oe 
* Passing.prg is used to find pipesystems passing Ж 
* through a speified compartment + 


Ae ode ade ade ole ade ole ade ok ke ok ok ole ale ade ale ok ole K ЖҰЖ Ж ЖЕ ok ok ok ok ale ale ҰЕЖ ЖЖЖ ЖЖЖ ЖҰЖ ЖЖЖ Ж ok ok ale oe ok oe ok ale aja ale 


USE contains INDEX contcomp 
ON ESCAPE RETURN 
NoExit - .T. 
DO WHILE NoExit 
CLEAR 
SET COLOR TO BG/B,N/G,R,R 
CLOSE FORMAT 
CompNo = SPACE(14) 
SET FORMAT TO PasStart 
READ 
CLOSE FORMAT 


* Create a Search Variable 
IF CompNo # " " 
Search = UPPER(CompNo) 
ELSE 
Search = 
ENDIF 


". 


* RETURN if no input 


IF Search =" " 
NoExit Е 
LOOP 

ENDIF 


* Check database for compartment number 
Looking = .T. 


SEEK Search 

ANS ="" 

SET FORMAT TO passscr && open format file 
RK_QUIT = 12 

RK_ Print = 2 
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* SHOW if found 


IF FOUND() 
STORE RECNO() TO saverec 
STORE "Compt_Num" TO Sparam 
STORE "Pipes Passing Through Compartment "+Compt_Num; 
TO Title 
STORE "sysprt" TO prtfile 
SET COLOR TO -W/B,BG/R,G,B 
READ 
IF READKEY() = RK_QUIT 
Looking = .F. 
ENDIF 
IF READKEY?|) - RK print 
do fprint 
Looking - .F. 
ENDIF 


DO WHILE Looking .AND. .NOT. EOF() 
SKIP 
IF COMPT NUM = Search 
READ 
IF READKEY() = RK_QUIT 
Looking = .F. 
ENDIF 
IF READKEY() = RK_print 
do fprint 
Looking = F. 
ENDIF 
ELSE 
Looking = F. 
ENDIF 
ENDDO(while looking) 
ELSE 
@ 10,16 CLEAR to 11,60 
@ 9,25 SAY "Not a valid compartment" 
@ 11,17 SAY "Press "+CHR(17)+CHR(196)+CHR(217)+" to 
continue" 
wait "" 
ENDIF 
ENDDO 
SET COLOR TO +G,BG/B,R,B 
CLOSE ALL 


137 


RETURN 


z k  * k k + k k k * k k * * * * * * x * * k k * * * * * * * * * k * * * * k k k Kk kK k K k k k k k k k k k k k k k k 


* Material.prg is used to find the pipe systems + 
* made of a specific material m 
kk k k k k k k kk k k kk k k k k k k k k k K k k k k K K k K k K K K K k K K k k k k k k k k k k k k k k k k k k k k 
USE pipesyst INDEX pipemat 
SET COLOR TO +G,BG/B,R,B 
ON ESCAPE RETURN 
NoExit = .T. 
DO WHILE NoExit 

CLEAR 

SET COLOR TO BG/B,N/G,R,R 

CLOSE FORMAT 

pipemat = SPACE(10) 

SET FORMAT TO Pipemat 

READ 

CLOSE FORMAT 


* Create a Search Variable 
IF pipemat # " " 
Search = UPPER(pipemat) 
ELSE 
Search = 
ENDIF 


tt tt 


* RETURN if no input 
IF Search =" " 
NoExit = .F. 
LOOP 
ENDIF 


* Check database for pipe system number 
Looking =.T. 


SEEK Search 

ANS — tt tt 

SET FORMAT TO Ispecmat && open format file 
RK_QUIT = 12 

RK PRINT =2 


* SHOW 1f found 


138 


IF FOUND() 
STORE RECNO() TO saverec 
STORE "Material" TO Sparam 
STORE "List of pipe systems that are made of "+pipemat; 
TO Title 
STORE "sysprt" TO prtfile 
SET COLOR TO -W/B,BG/R,G,B 
READ 


IF READKEY() - RK, QUIT 
Looking = .F. 

ENDIF 

IF READKEY() = RK_print 
do fprint 
Looking = .F. 

ENDIF 


DO WHILE Looking .AND. .NOT. EOF() 
SKIP 

IF Upper(Material) 2 Search 

READ 


IF READKEY() - RK, QUIT 
Looking = F. 
ENDIF 
IF READKEY() - RK PRINT 
do fprint 
Looking = .F. 
ENDIF 
ENDIF 
ENDDO(while looking) 
ELSE 
@ 12,16 CLEAR to 11,58 
@ 9,25 SAY "No pipes of that material" 
@ 11,17 SAY "Press "+CHR(17)+CHR(196)+CHR(217)+" to 
continue" 
wait "" 
ENDIF 
ENDDO 
SET COLOR TO +G,BG/B,R,B 
CLOSE ALL 
RETURN 
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ЖЖЖ ЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЕЖЖЖЖЖЕЖЕЖЕЖЖЖЕЖЕЖЖЕЖЖ Ж 


* Adjtank.prg is used to query the adjacent database ^ 
* forthe tanks surrounding the specified tank * 
ЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЕЖЖ 
USE adjacent INDEX adjcomp 
SET COLOR TO +G,BG/B,R,B 
ON ESCAPE EXIT 
AdjCont =.T. 
DO WHILE AdjCont 

compno = SPACE(14) 

SET FORMAT TO passtart 

CLEAR 

READ 

CLOSE FORMAT 
* Create a Search Variable 

Search = UPPER(CompNo) 


* RETURN if no input 
IF Search = " " 
AdjCont = .F. 
LOOP 
ENDIF 


* Check database for compartment number 


SEEK Search 
RK_QUIT = 12 
ЕК РРІМТ-2 


ANS — w" t“ 
SET FORMAT TO adjtank 
* Show if found 


IF FOUNDO 
READ 


IF READKEY() - RK, QUIT 
AdjCont - .F. 
ENDIF 
IF READKEY() - RK PRINT 
STORE RECNO() TO saverec 
STORE "Compt Num" TO Sparam 
STORE "Compartments adjacent to "+Compt_Num; 
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TO Title 
STORE "adjprt" TO prtfile 
do fprint 
ENDIF 
ELSE 
@ 10,16 CLEAR to 11,60 
@ 9,25 SAY "Not a valid compartment" 
@ 11,17 SAY "Press "+CHR(17)+CHR(196)+CHR(217)+" to 
continue" 
wait "" 
ENDIF 
ENDDO 
CLOSE ALL 
RETURN 


> k k kk k k k k k k ok ole ad ole ade ol ode ak od kk ok k k k k k k k k k k k k ok kk ok k ale k k de ak k k k k k kok k k k k k 


ж InbdTank.prg is used to find inboard compartments + 
3k k k k k k ok k k de ok ke ok ok ok oe ode k k de ok de k k k k k k k ak k k k k k k k k k k ak ke ok ok ok ok k k k k k k k ЖЖ 
USE compartm INDEX compno 
ON ESCAPE RETURN 
NoExit = T. 
DO WHILE NoExit 

CLEAR 

SET COLOR TO BG/B,N/G,R,R 

CLOSE FORMAT 

Indb =" " 

SET FORMAT TO inbdtank 

READ 

CLOSE FORMAT 


* Create a Search Variable 
DO CASE 

CASE inbd =" " 
NoExit = .F. 
LOOP 

CASE inbd - "T" 
do findinbd 

CASE Tank = "V" 
do voidinbd 

OTHERWISE 
@12, 12 SAY "Invalid selection" 
@13, 12 SAY "Press any key to continue" 
wait " " 
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ГООР 
ENDCASE 
ENDDO 
SET COLOR TO +G,BG/B,R,B 
CLOSE ALL 
RETURN 


3k >k k k >k k k >k ke ole ole E OR OR KOK R K KOR K E R K E KOR K E R KR R R OR ke ohe ole se R E R KR R R K R R R R 


ж Findinbd.prg is used to find the inboard * 
* tank of a specified compartment D 
xk ok okok ook ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ook ok ok ok ok ok ok 2k ok ok ok ok X K ok ok OR OK KR K R KR R KR R OR OR R 
ON ESCAPE RETURN 
NoExit = Т. 
DO WHILE NoExit 

CLEAR 

SET COLOR TO BG/B,N/G,R,R 

CLOSE FORMAT 

CompNo = SPACE(14) 

SET FORMAT TO PasStart 

READ 

CLOSE FORMAT 


* Create a Search Variable 
IF CompNo ££" " 
Search = UPPER(CompNo) 
ELSE 
Search = 
ENDIF 


т 


* RETURN if no input 


IF Search =" " 
NoExit = .F. 
LOOP 

ENDIF 


* Check database for compartment number 
Looking - .T. 


SEEK Search 

ANS = "oM 

SET FORMAT TO findinbd && open format file 
RK_QUIT = 12 


142 


RK_Print = 2 
* SHOW if found 


IF FOUNDO 
Stmo = STRING 
Strlen = LEN(Strno) 
chkstr= SUBSTR(Stmo,strlen,!) 
DO CASE 
CASE UPPER (chkstr) = "S" 
side = "PORT" 
CASE UPPER (chkstr) = "Р" 
side = "STBD" 
OTHERWISE 
© 21,12 SAY "ERROR" 
ENDCASE 
Use Adjacent INDEX adjcomp 
SEEK Search 
IF FOUNDO 
SET COLOR TO +W/B,BG/R,G,B 
READ 
IF READKEY() = RK OUIT 
Looking = .F. 
ENDIF 
ELSE 
@ 10,16 CLEAR to 11,60 
(à 9,25 SAY "Not a valid compartment" 
@ 11,17 SAY "Press "+CHR(17)+CHR(196)+CHR(217)+" to 
continue" 
wait "" 
ENDIF 
ENDDO 
SET COLOR TO +G,BG/B,R,B 
CLOSE ALL 
RETURN 


A e ole ode ole od ole ole ode ale od de ole ole de ade de ole ode ole ode ole k k ad ale ole ole od ole od ade ode a od a k de ole k k k K k k k k kK k k 


* SpecMat.prg is used to find the material a т 
ж specific pipe system is made from S 
Ae de de ok ode ad de ole a ode ade ade ae a a ak ade ad a ak a ade ade ae ad a ad ade ade a de ak ad a o a a ad ak ak ak ade ak ak ak ak ak ak ok ok 
USE pipesyst INDEX pipesys 

ON ESCAPE RETURN 

Looking - .T. 
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DO WHILE Looking 
SET COLOR TO +G,BG/B,R,B 
SET FORMAT TO PasSys 
CLEAR 
System = SPACE(18) 
READ 
CLOSE FORMAT 


* Create a Search Variable 
Search = UPPER(System) 


* RETURN if no input 


IF Search =" " 
Looking = .F. 
LOOP 

ENDIF 


* Check database for pipe system 


SEEK Search 
RK_QUIT = 12 


* Show if found 


SET FORMAT TO specmat && open format file 
IF FOUNDO 
ANS="" 
SET COLOR TO +W/B,BG/R,G,B 
READ 
IF READKEY() - RK QUIT 
Looking - .F. 
ENDIF 
ELSE 
@ 10,18 CLEAR to 11,60 
@ 10,27 SAY "Not a valid pipe system" 
wait " " 
ENDIF 
ENDDO 
SET COLOR TO +G,BG/B,R,B 
CLOSE ALL 
RETURN 
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xk ok »k dk »k ok ok ok 2k ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok 2k ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok k ke dk ale al ale ok dok OR R OR 


* PipeCont.prg is used to find compartment » 
* through which a speified pipe system passes ñ 
>= >< k >= k >k dk dk dk E de ole ade od aldea ade al ade ol ade od ale ade ale ade ode R K R E E OR ade od ade de a KR OKE OR OR OKE OR ale ade ole ade ode ale ade OR K 
USE contains INDEX contsys 
ON ESCAPE RETURN 
NoExit = .T. 
DO WHILE NoExit 

CLEAR 

SET COLOR TO BG/B,N/G,R,R 

CLOSE FORMAT 

System = SPACE(18) 

ANS ="" 

SET FORMAT TO PasSys 

READ 

CLOSE FORMAT 


* Create a Search Variable 
IF System # " " 
Search = UPPER(System) 
ELSE 
Search = 
ENDIF 


"nor 


* RETURN if no input 


if Search =" " 
NoExit = .F. 
LOOP 

ENDIF 


* Check database for pipe system number 
Looking = Т. 


SEEK Search 
ANS="" 
SET FORMAT TO pcontscr && open format file 
RK_QUIT = 12 
RK PRINT =2 
* SHOW if found 


IF FOUND() 
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5ТОКЕ КЕСМО() ТО saverec 
STORE "SYSNUM" TO Sparam 
STORE "Compartments Containing "+S YSNUM TO Title 
STORE "contprt" TO prtfile 
SET COLOR TO +W/B,BG/R,G,B 
READ 
IF READKEY() = RK_QUIT 
Looking = .F. 
ENDIF 
IF READKEVY() = RK print 
do fprint 
Looking = .F. 
ENDIF 


DO WHILE Looking .AND. .NOT. EOF() 
SKIP 
IF SysNum = Search 
READ 
IF READKEY() = RK_QUIT 
Looking = F. 
ENDIF 
IF READKEY() = RK PRINT 
do fprint 
Looking = F. 
ENDIF 
RIESE 
Looking = F. 
ENDIF 
ENDDO(while looking) 
BESE 
@ 10,16 CLEAR to 11,60 
@ 9,25 SAY "Nota valid pipe system" 
@ 11,17 SAY "Press "+CHR(17)+CHR(196)+CHR(217)+" to 


continue“ 


walt т" 
ENDIF 


ENDDO 

SET COLOR TO +G,BG/B,R,B 
CLOSE ALL 

RETURN 
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* Strings.prg is used to find the compartments 5 
* ina speified string S 
Ade ale de de ole de de ole al ole ale ade ade ole ade de ade ole k de de ale af ade ode ale k de ole ode ade ade ole a de ae ale ole k k k k k k ode ale ae k k k k k k k k k k 
USE compartment 
ON ESCAPE RETURN 
NoExit - .T. 
DO WHILE NoExit 

CLEAR 

SET COLOR TO BG/B,N/G,R,R 

CLOSE FORMAT 

StrNo = SPACE(10) 

SET FORMAT TO String 

READ 

CLOSE FORMAT 


* Create a Search Variable 
IF StrNo #" " 
Search = UPPER(StrNo) 
ELSE 
Search = 
ENDIF 


"uo 


* RETURN if no input 


IF Search = " " 
NoExit = .F. 
LOOP 

ENDIF 


* Check database for string number 
Looking = .T. 


LOCATE FOR STRING = Search 

ANS - "o 

SET FORMAT TO strscr && open format file 
RK_QUIT = 12 

RK_ Print = 2 


* SHOW if found 


IF FOUNDO 
STORE RECNOQ() TO saverec 
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STORE "STRING" TO Sparam 
STORE "Compartments in STRING "+STRING; 
TO Title 
STORE "comprt" TO prtfile 
SET COLOR TO +W/B,BG/R,G,B 
READ 
IF READKEY() = RK_QUIT 
Looking = .F. 
ENDIF 
IF READKEY?)) - RK print 
do fprint 
Looking - .F. 
ENDIF 


DO WHILE Looking .AND. .NOT. EOF() 
CONTINUE 
IF FOUNDO 
READ 


IF READKEY() = RK_QUIT 
Looking = .F. 
ENDIF 
IF READKEVY() = RK pnnt 
do fprint 
Looking = .F. 
ENDIF 
ELSE 
Looking = F. 
ENDIF 
ENDDO(while looking) 
EPSE 
@ 10,16 CLEAR to 11,60 
@ 9,29 SAY "Nota valid string" 
@ 11,17 SAY "Press "+CHR(17)+CHR(196)+CHR(217)+" to 


continue" 


wait 
ENDIF 


ENDDO 


SET COLOR TO +G,BG/B,R,B 


CLOSE ALL 
RETURN 
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* Stradj.prg is used to find the compartments í 
* surrounding a specific string * 
e ode ade ole ode ole ode ade ole ade ale ale ade ale ade ale ode ade ode ade ak R OR OR OR k R ade ale ade ke K ade K R K R KR KOR K ale ade Kk R OR ade ade ale ade ak ode ale ok ole ak ade ak a 
USE compartment 
ON ESCAPE RETURN 
МоЕхи = .Т. 
DO WHILE NoExit 

CLEAR 

SET COLOR TO BG/B,N/G,R,R 

CLOSE FORMAT 

StrNo = SPACE(10) 

SET FORMAT TO String 

READ 

CLOSE FORMAT 


* Create a Search Variable 
IF StrNo #"" 
Search = UPPER(StrNo) 
ELSE 
Search = 
ENDIF 


1111 


* RETURN if no input 


ll Scarch — " " 
NoExit = .F. 
LOOP 

ENDIF 


* Check database for string number 
Looking = Т. 


LOCATE FOR STRING = Search 

ANS = "o 

SET FORMAT TO stradj && open format file 
RK_QUIT = 12 

RK_ Print = 2 


* SHOW if found 


IF FOUND() 
SRSTR = UPPER(COMP_NUM) 
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USE ADJACENT INDEX adjcomp 
SEEK SRSTR 
IF FOUNDO 
tankport = UPPER(PORT) 
tankstbd = UPPER(STBD) 
CLOSE DATABASES 
strsearch = tankport 
USE COMPARTMENT INDEX compno 
SEEK strsearch 
IF FOUNDO 
PortStr = STRING 
ELSE 
PortSt =" " 
ENDIF 
Strsearch = tankstbd 
GO TOP 
SEEK StrSearch 
IF FOUNDO 
StbdStr = STRING 
ELSE 
StbdStr = " " 
ENDIF 
IF PortStr # " " AND. StbdStr # " " 
Search = PortStr .OR. StbdStr 
ELSE 
IF PortStr # " " 
Search = PortStr 
ELSE 
IF StbdStr 4" " 
Search = StbdStr 
ELSE 
Search = 
ENDIF 
ENDIF 
ENDIF 
IF SEARCH #" " 
GO TOP 
LOCATE FOR STRING = Search 
IF FOUNDO 
5ТОКЕ КЕСМОО ТО saverec 
STORE "COMPT_NUM" TO Sparam 
STORE "Compartments Surrounding STRING “+StrNo; 
TO Title 


"orn 
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STORE "strprt" TO prtfile 

SET COLOR TO +W/B,BG/R,G,B 

READ 

IF READKEY() = RK_QUIT 
Looking = F. 

ENDIF 


DO WHILE Looking AND. NOT. EOF) 
CONTINUE 
IF FOUNDO 
READ 
IF READKEY() = RK_QUIT 
Looking = .F. 
ENDIF 
IF READKEY()=RK pnnt 
do fprint 
Looking = F. 
ENDIF 
ELSE 
Looking = F. 
ENDIF 
ENDDO(while looking) 
ENDIF 
ELSE 
@ 10,16 CLEAR TO 11,60 
@ 9,25 SAY "Invalid data in Search" 
@ 11,17 SAY "Press "+CHR(17)+CHR(196)+CHR(217)+" ; 
to continue“ 
ENDIF 
ENDIF 
ELSE 
@ 10,16 CLEAR to 11,60 
@ 9,29 SAY "Nota valid string" 
@ 11,17 SAY "Press "+CHR(17)+CHR(196)+CHR(217)+" to 
continue“ 
wait "" 
ENDIF 
ENDDO 
SET COLOR TO +G,BG/B,R,B 
CLOSE ALL 
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RETURN 
e ok ok ok ale ode ale ade ode ak ade ak ale ale ade ade ale ale ade ale ade ade ode ale ade ode al ak ale ak ode ale ade ak al ale ale ade ale ale ak ole 
* Fprint.prg is used to print queries ii 
A ak ok ak ok ok ak ad ak ade ade ale ok ok ale de ole ade ode ade ale ole de ole ade ok ale ade ode ale ade ale ode ode ale ade ole ale ade ade ak ak 
SET CONSOLE OFF 
SET MARGIN TO 4 
Linect = l 
pagect = 1 
pageln = 55 
GOTO Saverec 
SET PRINT ON 
CLEAR 
@ 23,10 SAY "Press any key to stop printing..." 
ON KEY DO Interrupt 
* Print header 
? SPACE((80-LEN(TITLE))*.5)+Title 

9 

9 

Enect = 


*Print Ouery Info 


DO WHILE .NOT. EOF() 

IF &Sparam = Search 
do &prtfile 

ELSE 
SET PRINT OFF 
EJECT 
SET CONSOLE ON 
RETURN 

ENDIF 


* See if a page break is needed 


IF Linect >= Pageln 
EJECT 
Pagect = Pagect + 1 
? SPACE((80-LEN(TITLE))*.5)+Title 
9 
2 
Linect = 3 
ENDIF 
SKIP 
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ENDDO 
SET CONSOLE ON 
ON KEY 
SET PRINT OFF 
EJECT 
RETURN 


A ole ade ole ale ok ok ode ade al ade af ade ade ade ale ale ade ale ode ad ae ade ale ade ale ade oe ad K R K K K K KOK R K KOK R KOR OK OK K R KOR K R KOK R K K R R Æ 


* Pipeprint.prg allows user to build a report form Т 
* and send it to the screen or printer * 
xk ok 2k ok ok ok ok ok ok ok ok ake ok ke ok ok 2k ok ale ok ok 2k ok KOR OK ok ok ck ok ok ok 2k ok K K R K [KOR ok ok ale ok ok ok ok ok R KOR OR K R R ok ck ale ok 9 
SET SAFETY OFF 

CLEAR 

Dir *.DBF 


DbFile = SPACE(8) 

@ 22,2 SAY "Enter Database Filename: " GET DbFile 
READ 

USE &DbFile 

CLEAR 

DIR *.frm 

Rfile = SPACE(8) 

Printer = "N" 

@ 22,2 SAY "Enter a new filename for the report form" 
@ 23,2 SAY "or reuse an existing form from above: " 
@ 23,41 GET Rfile 

READ 


* Build REPORT FORM 


IF Rfile #" " 
MODIFY REPORT &Rfile 


* PRINT 


CLEAR 
STORE " " TO Printer, PMacro 
@ 15,5 SAY "Send data to printer? (Y/N) " GET Printer 
PICT "!" 
READ 
IF Printer = "Y" 
PMacro = "TO PRINT" 
WAIT "Prepare printer, then press any key to continue..." 


153 


ENDIF 
REPORT FORM &Rfile &PMacro 
ENDIF 
IF Printer = eyi 
EJECT 
ENDIF 
SET FILTER TO 
CLOSE ALL 
WAIT "Press any key to return" 
RETURN 
2K k k K K 3k 3k k k k k k k k k k k k k OR R OR R k k k k k k k R k k k k k k k k k k k k k k R R R R k k k k k Æ R k k k 
* Passprt.prg is Fields to be printed for query pipes í 
* passing through a compartment * 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖҰЖЖЖ 
?SPACE(5)+S YSNUM 
Linect = Linect + 1 


kk k kk k k k k k k k k k k k k k k k k k k k k k k k k k k kk k k k k k k k K k K k k k K k k k k k k k 
* Strprt.prg is Fields to be printed for query Ж 
* compartments in specific string а 
2K 2K 2 2 2K oko 2k 2k 2 k k k k k kk k k k kk k k skok skok skok k k k k k k k k k k K k k k k k k K k k k k k k 
?SPACE(5)+COMP_NUM 

Linect = Linect + 1 


ЖЖЖ ЖЖЖЖҰЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЕЖЖЖЖ Ж 
* Adjprt.prg is Fields to be printed for query + 


* compartments adjacent to specified compartment Ж 
ЖЖЖ ЖЖЖЖЖЖЖЕЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЕЖЖЖЕЖЖЖЖЕЖ 


25РАСЕ(5)-ҒҮҮр 
25РАСЕ(5)-АЕТ 
?SPACE(S)+STBD 
25РАСЕ(5)-РОКТ 
9 


Linect = Linect + 5 


ЖЖЖЖЕЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖФЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЕ ЖЖ ЖЖЖ 


* AddrQry.prg lets user build a custom query form or use ‘i 
* an existing form. Also allows user to direct data to * 
* printer m 
k kk k k k k k k ək k kK k k kK K k k k kK k k k k k k k k k k k k k k k k k k k k k k k k k k K K k k K k k k k k k k k k 
SET SAFETY OFF 

CLEAR 

Dir *.DBF 
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DbFile = SPACE(8) 
(© 22,2 SAY "Enter Database Filename: " GET DbFile 
READ 
USE £DbFile 
CLEAR 
DIR *.ORY 
Ofile = SPACE(8) 
@ 22,2 SAY "Enter a new filename for the query form" 
@ 23,2 SAY "or reuse an existing form from above: " 
@ 23,41 GET Qfile 
READ 
IF QOfile #"" 
MODIFY QUERY &OQfile 
GO TOP 
IF EOF() 
CLEAR 
? “Warning... no records match search criterion!" 
9 
WAIT 
ENDIF(EOF) 
ENDIF(Qfile) 
CLEAR 
DIR *.frm 
Rfile = SPACE(8) 
@ 22,2 SAY "Enter a new filename for the report form" 
@ 23,2 SAY “or reuse an existing form from above: " 
@ 23,41 GET Rfile 
READ 


* Build REPORT FORM 


IF Rfile +" " 
MODIFY REPORT &Rfile 


* PRINT 


CLEAR 
STORE " " TO Printer, PMacro 
@ 15,5 SAY "Send data to printer? (Y/N) " GET Printer 
PICT "!" 
READ 
IF Printer = " Y" 
PMacro = "TO PRINT" 
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WAIT "Prepare printer, then press any key to continue..." 
ENDIF 

REPORT FORM &Rfile &PMacro 
ENDIF 
IF Panters y" 

EJECT 
ENDIF 
SET FILTER TO 
CLOSE ALL 
Wait "Press any key to continue” 
RETURN 


ЖЖЖЖҰЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЕЖЖЖЖЖЖЖЖЕЖЖЕЖЖЕЖЖЖЕЖЖЖ 


* CustQry.prg lets user build a custom query form or use t 
* an existing form. Also allows user to build a * 
* report form and send it to the screen or printer + 
sk ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok de ade ale ode ade ok ade k ade ale ade ad ad k ade ad SR SR K SR K SR K K K K SR R ade ok R SK de ad k k k К Ж 
SET SAFETY OFF 
CLEAR 
Dir *.DBF 
DbFile = SPACE(8) 
Printer = "N" 
(© 22,2 SAY "Enter Database Filename: " GET DbFile 
READ 
USE &DbFile 
CLEAR 
MODIFY QUERY pipes 
GO TOP 
IF EOF) 
CLEAR 
? "Warning... no records match search criterion!" 
9 
WAIT 
ENDIF(EOF) 
CLEAR 
DIR *.frm 
Rfile = SPACE(8) 
@ 22,2 SAY "Enter a new filename for the report form" 
@ 23,2 SAY “or reuse an existing form from above: " 
@ 23,41 GET Rfile 
READ 


* Build REPORT FORM 
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IF Rfile 4" " 
MODIFY REPORT &Rfile 


* PRINT 


CLEAR 
STORE " " TO Printer, PMacro 
@ 15,5 SAY "Send data to printer? (Y/N) " GET Printer 
РІСТ "!" 
READ 
IF Printer = "Y" 
PMacro = "TO PRINT" 
WAIT "Prepare printer, then press any key to continue..." 
ENDIF 
REPORT FORM &Rfile &PMacro 
ENDIF 
Printer = "Y" 
EJECT 
ENDIF 
SET FILTER TO 
ERASE Pipes.qry 
CLOSE ALL 
WAIT "Press any key to return" 
RETURN 


ЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖҰЖЖЖЕЖЖ ЖЖ 
* PipesBk is the floopy disk backup for the Pipes t 
* database and expert system A 
ЖЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖ ЖЖ 
СГЕАК 

RUN pipesbk.dat 

RETURN 


>k >; >k k k ək 3k k k k KOR R K KOR KOR OR K KR KOR OR KOR R KOR KR KOK de od od a a ad od ad ad od ak de od ak ade KOR OR ok oko ok k k R RO RO R 


* PipesRs is the floopy disk restore for the Pipes * 


ia database and expert system Е 
A ok o ok ok ok ol ok kk ok ok ic ic ofc oie ic ode ode ake ie al of ok ok ke ke ake aie ie ake ake ake ae od ake ke ok ie od od de od oc de ak od ofc kk ok ok kk skok ok k k kk k 


CLEAR 
@ 10,12 SAY "Place disk containing files in Drive A and 


Close door" 
9 


WAIT " Press any Key to continue" 
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RUN pipesrs.dat 
RETURN 
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